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PREFACE 


The  report  and  software  included  within  this  package  were 
developed  under  the  auspices  of  SNAME  Ship  Production  Committee 
panel  SP-8  Task  N8-91-6,  "Application  of  PC-Based  Project 
Management  in  an  Integrated  Planning  Process".  The  task  was 
performed  by  Richard  J.  Neumann  and  David  J.  McQuaide  of  National 
Steel  and  Shipbuilding  Co.,  San  Diego.  This  submittal  consists  of 
four  parts  as  shown  below: 

Z  The  "Project  Report"  which  describes  the  system's 
philosophy  and  overview. 

Z  The  system's  "Users  Manual"  which  explains  the  operation 
of  the  Integrated  Production  Planning  System  as  developed 
in  this  package.  The  manual  assumes  the  user  has  a 
moderate  knowledge  of  dBase  programming  along  with  an 
understanding  of  project  management  techniques  and  ship 
production  planning. 

Z  An  appendix  containing  program  logic  flow  charts,  program 
coding  and  documentation,  and  disk  copies  of  all  programs 
and  data  files  developed  by  the  project  for  use  by  the 
system. 

Z  A  "System  Demonstration  Disk"  which  is  an  on-screen  slide 
show  presentation  where  the  user  can  step  through  the 
system  and  see  the  various  screens  of  the  Integrated 
Production  Planning  System  along  with  on-screen 
explanations . 


EXECUTIVE  SUMMARY 


This  task  has  developed  a  PC-based  system  which  serves  as  a 
tool  to  assist  planning  organizations  in  developing,  updating,  and 
revising  ship  production  schedules.  The  system  will  also  create 
and  update  manning,  facility,  and  material  utilization  reports. 
The  scope  of  the  system  developed  is  limited  to  the  ground 
assembly,  outfit,  join,  and  erect  operations.  The  "Project  Report" 
describes  the  data  required  by  the  system  to  produce  its  outputs. 
The  report  explains  the  system  development  philosophy  and  gives  an 
overview  of  the  schedule  generation  system.  To  demonstrate  the  use 
of  the  system,  data  for  a  sample  ship  is  given  and  a  schedule 
developed  based  upon  this  data. 

The  User's  Manual  serves  as  a  reference  for  shipyards  wishing 
to  develop  a  PC-based  Integrated  Production  Planning  System  (IPPS) . 
The  software  included  in  this  package  is  not  intended  to  be  a 
turnkey  system.  For  an  IPPS  to  work  for  a  particular  shipyard,  the 
shipyard  must  modify  the  coding  so  that  the  system  will  conform  to 
the  yard's  facilities  and  methods  of  operation.  The  IPPS  should 
not  be  viewed  as  a  computer  system;  it  is  a  production  planning 
system  that  makes  use  of  computer  tools.  Simply  obtaining  and 
installing  the  software  will  not  give  a  shipyard  an  operable 
system.  Developing  an  Integrated  Production  Planning  System  is  a 
significant  task.  However,  once  developed,  the  IPPS  is  a  valuable 
tool  that  will  assist  shipyard  personnel  in  making  effective 
production  decisions. 


PROJECT  REPORT 
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ABSTRACT 


When  a  schedule  is  developed  for  a  project  it  dictates  not 
only  the  dates  when  various  activities  should  occur,  but  also  the 
manning,  facility,  and  material  utilization  required  to  meet  the 
schedule.  A  change  in  schedule  necessitates  a  change  in  manning, 
facility  and  material  utilization  plans.  By  the  same  token, 
changes  in  manning,  facilities  or  material  availability  (e.g.  late 
arrival  of  material)  necessitates  a  change  in  schedule.  Since  the 
activities  within  a  project  are  interrelated  and  various  projects 
often  use  common  manning  and  facilities,  a  change  in  a  single 
activity  often  necessitates  the  modification  of  many  related 
activities . 

A  shipyard  working  on  several  projects  must  schedule  thousands 
of  interrelated  activities.  To  remain  credible,  the  schedules  must 
be  updated  as  items  are  delayed  and  variations  in  production 
schedules  occur.  For  a  shipyard  to  remain  competitive,  it  must 
have  a  production  planning  system  that  optimizes  the  yard' s  overall 
use  of  facilities  and  manning. 

This  paper  discusses  the  development  and  implementation  of  a 
PC-based  Integrated  Production  Planning  System  (IPPS)  which  serves 
as  a  tool  to  assist  planning  organizations  in  developing,  updating, 
and  revising  schedules  and  associated  manning,  facility,  and 
material  utilization  reports. 
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GLOSSARY 


The  following  definitions  are  provided  to  clarify  usage  within 
this  paper.  They  are  not  meant  to  imply  any  type  of  industry 
standard. 

MASTER  PRODUCTION  SCHEDULE  (MPS)  -  (as  defined  by  the  American 
Production  and  Inventory  Control  Society  Dictionary)  "... 
the  anticipated  build  schedule  for  those  selected  items 
assigned  to  the  master  scheduler.  .  ."  [1] 

BLOCK-  A  structural  assembly  which  will  be  outfitted  and  erected 
singly  or  as  part  of  a  grand  block. 

GRAND  BLOCK-  two  or  more  blocks  that  have  been  joined  into  a 
single  interim  product  prior  to  erection. 

LONG  RANGE  FORECAST^  Needs  implied  by  schedules  over  a  two  to 
three  year  time  span.  This  forecast  will  show  manning  and 
capacity  needs  of  a  project  for  its  entire  ground  assembly, 
join,  outfit,  and  erect  period. 

SHORT  TERM  REQUIREMENTS-  Needs  implied  by  schedules  over  a  two 
to  three  month  time  span.  Requirements  are  used  for 
regularly  updated,  detailed  manpower  and  facility  utilization 
planning . 
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SCOPE  OF  PROJECT 


An  effective  integrated  production  schedule  will  consider  all 
activities  that  go  on  within  a  shipyard.  However,  this  does  not 
mean  that  a  single  production  planning  system  must  model  all 
activities.  If  an  individual  system  models  a  well-defined  area  of 
the  shipyard,  this  information  can  be  combined  with  information 
regarding  other  areas  to  develop  an  overall  view  of  the  shipyard 
system. 

At  the  highest  level,  a  shipyard  may  be  described  as 
consisting  of  four  interrelated  functions:  production,  materials, 
engineering,  and  personnel/  business  administration/  business 
development.  Production  operations  may  be  grouped  in  a  variety  of 
ways.  The  grouping  used  in  this  paper  is  as  shown  in  figure  1. 


Figure  1: Interrelation  of  spyard  activities. 


The  scope  of  activities  to  be  modeled  by  the  IPPS  discussed  in 
this  paper  are  limited  to  ground  assembly,  joining,  outfitting,  and 
erection  of  blocks.  The  activities  to  be  modeled  are  as  listed. 
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-  Fabrication  of  Steel  Parts 

-  Block  Sub-Assemblies  (i.e.,  building  of  bulkheads,  decks, 
etc.,  from  fabricated  parts) 

-  Block  Assembly 

-  Pre-Blast  Outfitting  of  Blocks/Grand  Blocks 

-  Blast  and  Paint  of  Blocks/Grand  Blocks 

-  Post-Blast  Outfitting  of  Blocks/Grand  Blocks 

Grand  Blocking  (joining  of  blocks  before  they  erect  to  ship) 

-  Block  or  Grand  Block  Erection  to  Ship 


The  on-board  outfitting,  shop,  production  service,  repair,  and 
non-production  activities  are  not  modeled  by  this  system. 
Schedules  and  information  regarding  these  activities  are  developed 
in  parallel  with  this  system.  The  data  is  combined  with  data 
developed  by  the  IPPS  and  is  used  to  provide  information  regarding 
the  entire  shipyard. 

The  Master  Production  Schedule  (MPS)  must  be  coupled  to  bills 
of  material  structured  to  support  the  production  process.  They  are 
not  separate  issues.  A  workable  interface  between  the  scheduling 
and  material  requirement  system  is  vital.  Development  of  this 
interface  is  dependent  upon  both  the  planning  and  material  systems 
employed  by  the  yard.  This  issue  will  not  be  addressed  in  this 
paper.  However,  when  a  production  scheduling  system  is  being 
developed,  the  scheduling/materials  system  interface  must  be 
considered . 

The  MPS  also  must  be  supported  by  engineering.  Completion  of 
engineering  specifications  and  drawings  must  be  scheduled  to 
support  the  production  and  material  ordering  process.  However,  the 
scheduling  of  these  items  will  not  be  considered  within  the  scope 
of  this  project. 
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SYSTEM  DEVELOPMENT  PHILOSOPHY 


The  purpose  of  scheduling  is  to  optimize  the  use  of  resources 
so  that  the  overall  production  objectives  are  met.  Scheduling 
involves  the  assignment  of  dates  to  specific  tasks.  Machine 
breakdowns,  absenteeism,  quality  and  performance  problems,  material 
shortages,  and  other  factors  complicate  the  ship  building 
environment.  Hence,  the  assignment  of  a  date  does  not  ensure  that 
the  work  will  be  performed  at  that  time.  [2]  A  scheduling  system 
should  have  the  ability  to  adapt  schedules  to  reflect  changes  in 
the  ship  building  environment . 

An  effective  model  for  use  in  production  scheduling  must 
reflect  the  strategy  by  which  the  ship  will  be  built.  These 
strategies  establish  the  activity  durations,  resource  utilization, 
and  relationships  to  be  used  by  the  Integrated  Production  Planning 
System.  Documents  should  be  developed  to  describe  the  strategy  by 
which  the  ground  assembly,  join,  outfit,  and  erect  process  will 
occur.  Table  1  shows  five  strategy  sheets  that,  when  taken 
together,  will  provide  the  information  required  to  develop  an 
effective  Master  Production  Schedule  for  the  process.  (Note:  the 
sheets  are  illustrated  in  the  build  strategy  development  section  of 
the  User's  Manual.)  All  strategy  sheets  are  reviewed,  discussed, 
and  approved  prior  to  model  development. 

Even  if  a  PC-based  model  of  the  production  process  is  not 
developed,  creation  of  the  documents  shown  in  table  1  is  a  valuable 
tool  .  By  bringing  together  the  various  materials,  engineering, 
production  and  support  groups  for  the  strategy  review  process,  the 
build  strategies  and  ship' s  design  will  often  be  substantially 
improved  and  subsequent  changes  will  generally  be  reduced. 

In  addition  to  the  strategy  sheets,  it  is  advantageous  to 
develop  a  coding  system  for  the  Work  Breakdown  Structure  (WBS)  and 
the  Organizational  Breakdown  Structure  (OBS) .  Use  of  these  codes 
enables  the  system  to  group  its  output  in  meaningful  ways. 
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Schedule  information  is  distributed  to  all  required  groups  in  a 
format  meaningful  to  that  group. 


STRATEGY 

SHEET 

DESCRIPTION 

BLOCK 

BREAKDOWN 

DIAGRAM 

IDENTIFIES  BREAKDOWN  OF  SHIP  INTO 
STRUCTURAL  ASSEMBUES  AND  SHOWS 
ASSEMBUES  THAT  JOIN  TOGETHER 
(’GRAND  BLOCIC)  PRIOR  TO  ERECTION 

INTEGRATED 

ASSEMBLY/OUTFIT 

STRATEGIES 

BY  BLOCK  TYPE 

BLOCKS  ARE  GROUPED  BY  COMMON  TYPE. 
ASSEMBLY/OUTFIT  ACTIVITIES  ARE  DEFINED. 
DURATIONS.  RESOURCE  REQUIREMENTS  AND 
GENERAL  SCOPE  OF  WORK  FOR  EACH 
ACTIVITY  ARE  IDENTIFIED. 

GRAND  BLOCK 
STRATEGIES 

A  SPECIAL  CASE  OF  THE  INTEGRATED 
ASSEMBLY/OUTFIT  STRATEGIES.  IDENTIFIES 
WHICH  BLOCKS  ARE  JOINED  TOGETHER  TO 
FORM  GRAND  BLOCKS  AND  THE  METHOD  BY 
WHICH  THEY  JOIN. 

ERECTION 

■STAR* 

CHART 

SHOWS  THE  DATE  EACH  ERECTABLE  UNIT 

IS  SCHEDULED  TO  BE  JOINED  TO  THE 

SHIP. 

PROCESS  LANE 
STRATEGIES 

SHOWS  IN  GANTT  CHART  FORMAT  THE 

FLOW  OF  BLOCKS  THROUGH  EACH  OF 

THE  DEDICATED  PROCESS  LANES. 

Table  1;  Ground  assembly,  join,  outfit,  and  erect  strategy  sheet  descriptions, 


A  schedule  dictates  not  only  the  dates  on  which  various 
activities  occur,  but  also  a  specific  set  of  material,  engineering  , 
facility,  and  manning  requirements.  For  a  schedule  to  remain 
credible,  it  must  account  for  actual  material  delivery,  engineering 
drawing  availability,  facility  availability,  and  manpower 
availability.  This  cyclic  relationship  implies  that  an  achievable 
schedule  can  be  derived  only  when  these  factors  are  considered 
together . 

Data  are  facts  concerning  objects,  events,  relationships,  and 
requirements.  Information  is  data  that  has  been  organized  in  a 
form  that  is  suitable  for  decision-making.  The  development  of  a 
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schedule  in  not  an  analytically  complex  task.  Development  is  made 
complex  due  to  the  large  volume  of  data  which  must  be  considered. 
The  IPPS  transforms  the  large  volume  of  data  which  influences 
schedules  into  useful  information.  The  clearest  way  to  convey  this 
information  is  through  graphical  displays  of  schedules,  manning 
requirements,  and  facility  utilization  data.  By  showing  relevant 
data  in  this  graphical  form,  the  system  serves  as  a  useful  tool  in 
generating  and  updating  the  MPS. 

Based  upon  the  above  discussion,  the  required  capabilities  of 
an  Integrated  Production  Planning  System  can  be  defined.  The 
requirements  for  an  effective  system  are  shown  in  table  2. 


REQUIREMENTS  FOR  AN  INTEGRATED 
PRODUCTTON  PLANNING  SYSTEM 


Z  REFLECT  A  BUILD  STRATEGY 

Z  SHOW  MATERIAL,  ENGINEERING, FACIUIV 
AND  MANNING  REQUIREMENTS 
IMPLIED  BY  THE  SCHEDULE 

Z  DISPLAY  ALL  DATA  IN  A  CLEAR 
MEANINGFUL  WAY 

Z  HIGH  LEVEL  OE  ELEXIBILITY  AND 
ADAPTABILITY 


Table  2:  Production  planning  system  requirements. 
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SCHEDULE  GENERATION  SYSTEM  OVERVIEW 


The  flow  chart  in  figure  2 


shows  the  Integrated  Production 

-m  .  o  j-  ■  ■  and  components.  The 

Planning  Systems  major  inputs,  outputs,  ^ 

system  consists  of  four  modules  which  interact  to  create  both  the 

baseline  and  regularly  updated  production  schedules.  system 

also  generates  manning  and  facility  long  range  and  short  term 

requirements.  Each  module  is  described  in  greater  detail  on  the 

pages  that  follow. 


Figure  2:  Integrated  Production  Planning  System  flowchart 


The  New  Project  Model  Generation  Module  is  shown  in  figure  3. 
When  a  new  project  (i.e.  a  ship)  is  brought  into  the  yard,  data  is 
gathered  regarding  build  strategies,  activity  resource 
requirements,  process  lane  considerations,  and  block  erection  data. 
All  this  data  is  collected  into  a  Ship  Build  Master  Data  File. 
This  data  is  passed  through  the  Model  Builder  Program  which  creates 
a  Standard  Setback  Model  for  the  ship. 
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The  Project  Integration  Module  is  shown  in  figure  4.  Standard 
Setback  Models  take  into  account  build  strategies  for  only  the 
individual  ship.  Since  all  ships  are  built  with  common  facilities 
and  manpower,  leveling  the  MPS  is  done  with  all  the  projects  in  the 
yard  considered  together.  The  Standard  Setback  Model  is  combined 
with  the  Standard  Setback  Models  of  previously  scheduled  work  to 
create  a  Yardwide  Schedule  Development  Model.  This  model  is 
processed  to  show  the  capacity  and  manpower  requirements  implied  by 
these  schedules.  Based  upon  this  information,  the  model  is  refined 
through  an  iterative  process  of  resource  demand  leveling. 
Capacities  and  manning  implied  by  the  schedule  are  investigated. 
Schedules  are  modified  until  acceptable  capacity  utilization  and 
manning  are  achieved.  The  final  iteration  of  the  model  is  reviewed 
and  approved  by  the  various  department  heads.  Upon  approval,  this 
model--becomes  the  Baseline  Production  Model. 


PROJECT  INTEGRATION^ 
MODULE 


The  Baseline  Master  Production  Schedule  Generation  Module  is 
shown  in  figure  5.  The  Baseline  Production  Model  is  used  to  create 
the  MPS  for  each  project.  The  model  is  also  used  to  create  and 
update  a  database  which  serves  as  the  baseline  schedule  for  the 
schedule  tracking  system.  The  Baseline  Production  Model  is  altered 
only  when  a  new  revision  of  an  existing  projects  schedule  is 
issued. 


From  Baseline  Production  Model 


MASTER 

SCHEDULE 

GENERATION 

PROGRAM 


MASTER  SCHED. 
UPLOAD  FEE 
GENERATION  L 
RAM  ^ 


SCHEOOLE 

IRMaONG 


Figure  5:  Baseline  Master  Production  Schedule  Generation  Module 
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The  Production  Schedule  Update  Development  Module  is  shown  in 
figure  6.  A  copy  of  the  Baseline  Production  Model  is  renamed  the 
Production  Update  Model.  This  model  is  updated  based  on  regular 
meetings  and  progress  data.  The  updated  model  is  processed  and 
used  to  generate  regularly  issued  production  schedules,  manning 
curves,  and  facility  utilization  reports  (laydown  schedules)  . 
man-ning  curves  and  facility  utilization  reports  reflect  adjustments 
that  have  been  made  from  the  master  schedule  to  the  current 

production  schedule. 


Figure  6:  Production  Schedule  Update  Development  Module, 


PROJECT  MANAGEMENT  SOFTWARE 


The  IPPS  is  built  around  Welcom  Software  Technology's  Open 
Plan  PC-based  project  management  software  .  There  are  several  PC- 
based  project  management  packages  on  the  market  today.  One  of  the 
advantages  of  Open  Plan  (herein  referred  to  as  the  project 
management  software)  is  that  the  software  package  operates  within 
a  dBase  shell.  All  of  the  project  management  software  input  and 
output  files  are  in  standard  dBase  format.  This  allows  all  pre¬ 
processing  and  post-processing  programs  built  around  the  project 
management  software  to  be  written  in  dBase. 


All  models  shown  in  the  Schedule  Generation  System  Overview 
exist  within  the  project  management  software  framework.  The 
software  takes  data  regarding  individual  activities  and  creates 
schedules  and  resource  utilization  files.  The  data  regarding 
individual  activities  is  placed  into  three  separate  files.  The 
activity  file  contains  the  duration  of  each  activity.  Before  this 
file  is  processed,  the  only  dates  in  the  file  are  the  start  dates 
of  key  events  (i.e.  the  date  blocks  or  grand  blocks  erect  to  the 
ship)  .  The  relationship  file  shows  the  required  sequencing  and 
interaction  between  various  activities.  The  resource  file  shows 
the  manning  and  facility  requirements  of  each  activity.  The  project 
management  software  processes  these  data  files  and  generates  all 
the  dates  that  were  not  previously  defined.  These  dates  are  stored 
to  the  processed  activity  file.  The  software  also  creates  a 
resource  aggregation  file.  This  file  shows  the  utilization  of 
resources  as  a  function  of  time.  The  major  inputs  and  outputs  of 
a  project  management  software  model  are  shown  in  figure  7. 


MANNING  & 
FACILITY 
UTIUZATION 


Figure  7:  Project  management  software  input  and  output  files. 
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STEPPING  THROUGH  THE  SYSTEM 


To  demonstrate  how  the  IPPS  is  used,  schedules  were  developed 
and  updated  for  a  test  case.  The  test  case  is  the  construction  of 
the  MV  Well  Planned,  a  small,  double-hulled  product  carrier.  The 
first  and  most  important  task  in  scheduling  is  the  development  of 
a  build  strategy.  The  build  strategy  for  the  MV  Well  Planned  is 
expressed  in  terms  of  the  documents  described  in  the  Systems 
Development  Philosophy  section  of  this  report.  The  strategy  sheets 
for  the  MV  Well  Planned  are  shown  in  the  Build  Strategy  Development 
section  of  the  User's  Manual (pages  6-10). 

Information  from  the  documents  is  used  to  create  the  MV  Well 
Planned's  Ship  Build  Master  Data  File.  This  file  is  processed  by 
the  Model  Builder  Program  to  create  a  Standard  Setback  Model  for 
the  ship.  This  model  consists  of  the  activities,  resources,  and 
relationships  reguired  to  assemble,  join,  and  outfit  the  blocks  in 
preparation  for  erection.  The  erection  activity  for  each  block  is 
fixed  to  a  particular  date  as  defined  by  the  strategy  sheets. 
Since  the  final  event  in  each  chain  of  activities  is  locked,  the 
entire  network  of  activities  can  be  back-scheduled  to  show  the  late 
start  and  complete  dates  for  each  activity  in  the  network. 

The  Standard  Setback  Model  of  the  MV  Well  Planned  shows  the 
required  start  of  construction  date  for  the  vessel  to  be  22  weeks 
before  keel.  This  is  not  acceptable.  To  alleviate  this  early 
start  of  construction  requirement,  the  build  strategies  must  be 
altered.  In  the  case  of  the  MV  Well  Planned  start  of  construction 
is  driven  by  the  wing  tank  block  assembly  process  lane.  solve 
this  problem  the  strategy  was  altered  by  using  a  second  build 
position  for  this  process  lane.  The  revised  process  lane  strategy 
sheet  to  reflect  this  change  is  shown  in  figure  8.  The  model  is 
altered  to  reflect  this  new  strategy  by  updating  the  relationships 
between  the  wing  tank  block  assembly  activities.  The  model  is  then 
reprocessed.  The  start  of  construction  date  with  this  new  strategy 
becomes  10  weeks  before  keel.  The  build  strategy  is  now 
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acceptable . 


ASSEMBLY  PROCESS  LANE  (WING  TANKS) 
BLOCK 


Figure  8;  Revised  process  lane  strategy  sheet, 


The  initial  model  is  back-scheduled  to  late  dates,  therefore 
any  leveling  done  is  accomplished  by  moving  activities  earlier. 
Resource  leveling  strategies  must  reflect  the  constraints  imposed 
by  a  particular  yard's  capabilities.  If  a  yard  has  only  a  limited 
area  to  assemble  the  blocks,  schedules  may  be  leveled  on  space 
utilization  within  this  area.  If  there  is  a  required  trade  for 
which  the  yard  has  limited  manning,  schedules  may  be  leveled  based 
upon  the  trade's  availability.  Schedules  may  be  leveled  on  any 
resource  or  combination  of  resources  included  within  the  model. 
Since  the  IPPS  operates  by  back  scheduling  to  late  dates,  the 
generalized  resource  leveling  strategy  is  to  first  level  resources 
in  the  area  that  immediately  precedes  the  erection  activity  and 
then  work  back  to  earlier  activities. 

The  strategy  used  for  resource  leveling  of  the  MV  Well  Planned 
is  to  first  level  the  outfit  area  manning.  Since  resources  are 
interchangeable  between  the  pre-blast  inverted,  pre-bast  upright, 
and  post  blast  outfitting  activities,  these  activities  are  grouped 
by  their  common  OBS  code  and  leveled  together.  Once  the  outfitting 
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area  is  leveled,  the  assembly  area  is  investigated.  The  assembly 
area  in  this  example  is  leveled  based  upon  the  number  of  blocks 
with  work  in  progress  in  both  the  flat  and  curved  block  build 
areas.  By  leveling  first  the  outfitting  area  manning  and  then  the 
assembly  area  work  in  process,  a  feasible  MPS  is  created.  This 
schedule  reflects  the  build  strategies  for  the  vessel  as  well  as 
taking  into  account  the  manning  and  facility  availability. 

Figure  9  shows  the  output  of  the  Long  Range  Manning 
Requirement  Generation  Program  for  the  outfit  area.  An  analysis  of 
the  blocks  outfitting  during  the  peak  months  of  April,  May,  and 
June  show  that  the  majority  of  the  manning  requirements  during  this 
period  of  time  are  driven  by  the  outfitting  of  the  house  blocks  and 
house  grand  blocks.  In  order  to  level  manning  in  this  area  the 
outfitting  of  the  lower  house  (grand  block  531)  will  be  scheduled 
prior  to  the  outfitting  of  the  upper  house  (grand  block  533) .  To 
change  the  model  to  reflect  this  strategy  a  single  relationship  is 
added.  The  new  relationship  forces  the  outfitting  of  block  531  to 
complete  before  the  outfitting  of  block  533  can  start.  Since  the 
activities  are  linked,  the  system  will  reschedule  the  assembly, 
outfitting,  and  stacking  activities  of  all  blocks  which  comprise 
grand  block  531.  The  results  of  this  reschedule  (iteration  2)  are 
shown  in  figure  10. 
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Figure  9:  Outfit  area  manning  requirements, 
iteration  1  -  by  standard  setbacks. 

Figure  10:  Outfit  area  manning  requirements, 

iteration  2-qrand  black  531  forced  early. 
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BUILD  POSITIONS 


The  manning  curve  for  the  outfitting  area  is  now  acceptable. 
Next,  an  analysis  is  made  of  the  facility  utilization  within  the 
assembly  area.  Two  independent  resources  must  be  investigated 
within  the  assembly  area.  Both  the  flat  block  build  platen  and  the 
shaped  block  build  platen  have  limited  space.  The  MPS  must  be 
adjusted  so  as  to  level  both  of  these  resources.  Since  the 
resources  are  independent,  they  may  be  leveled  simultaneously. 


SHAPED  BLOCK 
ASSEMBLY  PLATEN 

FACILITY 


|NOV|  DEC|JAN 
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Figure  11:  Shaped  platen  facility  utilization 

Based  upon  iteration  2  of  the  model. 


FLAT  FACILITY 


Figure  12:  Flat  platen  faciliy  utilization 

based  upon  iteration  2  of  the  model. 


Figures  11  and  12  show  the  outputs  of  the  Capacity  Requirement 
Generation  Program.  Note  that  the  system  is  back-scheduling  to 
late  dates  and  the  assembly  activity  precedes  the  outfitting 
activities.  Therefore,  when  assembly  activities  are  forced 
earlier,  float  is  introduced  between  the  assembly  and  outfit 
operations.  This  has  no  impact  on  the  outfitting  area  manning 
requirements.  The  resource  leveling  strategy  for  the  MV  Well 
Planned  makes  no  attempt  to  level  the  assembly  area  manning. 
However,  there  is  a  high  correlation  between  assembly  build 
positions  in  use  and  assembly  area  manning  requirements.  If 
assembly  build  position  usage  is  level,  assembly  area  manning 
requirements  are  also  fairly  level.  To  level  the  shaped  block 
assembly  platen,  some  of  the  blocks  scheduled  to  assemble  in  April 
are  rescheduled  to  assemble  earlier  to  fill  in  the  valley  in  the 
February-March  time  period.  When  leveling  the  flat  block  assembly 
platen  it  is  not  desirable  to  take  the  excessive  work  in  May  and 
reschedule  it  for  February.  This  would  break  the  logical  build 
sequence  for  the  ship.  Instead,  the  schedule  should  be  modified  to 
push  earlier  the  building  of  a  few  blocks  in  March,  April,  and  May. 
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This  will  eliminate  the  excessive  capacity  requirements  while 
maintaining  a  proper  build  sequence.  The  results  of  this 
rescheduling  (iteration  3)  are  shown  in  figure  13  and  14. 


FIgurelS:  Shaped  platen  facility  utilization  Fiflure14:  Flat  platen  facility  utilization 

based  upon  iteration  3  of  the  model.  based  upon  Keration  3  of  the  model. 

The  facility  utilization  within  the  assembly  area  is  now 
acceptable.  This  model  is  named  the  Baseline  Production  Model  and 
processed  by  the  Master  Schedule  Generation  Program  to  create  a 
Master  Production  Schedule.  The  MPS  is  approved  by  production, 

engineering,  materials  and  support  groups  and  the  schedule  is 
issued.  An  upload  file  is  created  to  support  the  schedule  tracking 
system. 

A  copy  of  the  Baseline  Production  Schedule  is  renamed  the 
Production  Update  Model.  This  model  is  updated  based  upon  regular 
meeting  and  progress  data.  These  weekly  meetings  are  attended  by 

members  of  the  assembly,  outfitting,  erection,  and  support  groups. 
These  meetings  serve  to  update  the  short  term  schedule  documents 
based  upon  actual  and  projected  progress. 


Figure  15;  Fht  platen  assembly  laydown  chart 
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Figure  15  shows  the  current  production  schedule  for  the  flat 
platen  assembly  area.  the  production  update  meeting,  the 
assembly  area  representative  will  report  on  actual  and  projected 
progress.  The  assembly  area  laydown  chart  is  marked  up  by  the 
assembly  area  representative  as  shown  in  figure  16.  Based  on  the 
assembly  area  inputs,  changes  will  be  made  to  the  production 
schedule.  These  changes  are  shown  in  table  3.  The  Production 
Update  Model  is  modified  to  reflect  the  actions  taken  in  the 
meeting.  The  model  is  then  reprocessed  and  updated  production 
schedules  are  issued  to  appropriate  groups. 


CONFLICT 

ADJUSTMENT 

BLOCK  2421  IN  BUILD 

POSITION  1-4  WILL  OVERLAP 

WITH  LAYDOWN  OF  BLOCK  232. 

THE  EXTENDED  DURATION  OF 

BLOCK  311  IN  BUILD  POSITION 

1-3  DOES  NO  CAUSE  A  CONFLICT 
IN  THE  ASSEMBLY  AREA. 

HOWEVER,  THIS  3  DAY  DELAY 

WILL  CUT  INTO  THE  SCHEDULED 

OUT  FITTING  DURATION, 

THE  EXTENDED  DURATION  OF 

BLOCK  241  IN  BUILD  POSITION 

1-2  HAS  NO  IMPACT  ON  OTHER 
BLOCKS  IN  THE  ASSEMBLY  AREA. 
THERE  IS  FLOAT  BETWEEN  THIS 
ACTIVITY  AND  Outfitting 
ACTIVITIES  OF  THIS  BLOCK 

ASSEMBLY  AGREES  TO  CRASH 

THE  DURATION  OF  BLOCK  232  IN 
ORDER  TO  RECOVER  TO  THE 
SCHEDULE. 

OUTFITTING, MADE  AWARE  OF 

THE  DELAY  AND  ITS  IMPACT 

AHEAD  OF  TIME,  AGREES  TO 

WORK  THIS  BLOCK  MORE 
AGGRESSIVELY  TO  MAKE  UP  FOR 
THE  DECREASED  DURATION, 

LATER  ACTIVITIES  ARE  NOT 
AFFECTED,  THEREFORE,  THIS 

DELAY  HAS  NO  IMPACT. 

Table  3:  Adjustments  made  to  the  production  schedule. 
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CONCLUSION 


An  effective  MPS  must  reflect  not  only  a  build  strategy,  but 
also  material,  engineering,  facility,  and  manpower  availability. 
A  PC-based  system  can  be  established  to  assist  in  creating  and 
updating  the  MPS. 

The  system  described  in  this  reference  will  allow  shipyard 
personnel  to  see  the  production  schedule  in  a  clear,  meaningful 
way.  This  system  can  serve  as  a  tool  to  help  a  shipyard  make 
better  production  decisions  and  operate  with  improved 
effectiveness . 
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PREFACE 


This  User' s  Manual  is  provided  as  a  reference  for  shipyards 
wishing  to  develop  a  PC-based  Integrated  Production  Planning  System 
(IPPS)  .  The  software  included  in  this  package  is  not  intended  to 
be  a  turnkey  system.  To  effectively  implement  a  system,  a  shipyard 
should  establish  an  IPPS  development  team.  The  team  will  define 
what  that  particular  yard's  needs  are  in  an  IPPS.  They  will  also 
compile  the  ship' s  build  strategy  in  proper  format  for  use  by  the 
system. 

This  manual  assumes  that  the  development  team  has  a  moderate 
knowledge  of  dBase  programming  and  an  understanding  of  project 
management  technigues  and  ship  production  planning.  The  user's 
group  must  also  become  familiar  with  the  Open  Plan  software  system. 

The  coding  included  with  this  package  will  operate  for  the 
sample  organization  and  ship  described  herein.  This  package  is 
intended  as  a  skeletal  outline  showing  how  such  a  system  can  be 
established.  For  an  IPPS  to  work  at  a  particular  shipyard,  the 
yard  must  modify  the  coding  so  that  the  system  will  conform  to  the 
yard's  facilities  and  method  of  operation.  The  coding  and 
documentation  provided  is  a  base  from  which  customized  programs  can 
be  written  for  a  yard's  specific  application.  In  developing  and 
using  the  IPPS,  the  development  team  needs  to  have  access  to  the 
following : 

.  This  User' s  Manual 

.  An  MS-DOS  System 

.  Open  Plan  User' s  Manuals 

.  The  Software  and  Hardware  Described  in  the  System  Set-Up 
Section  Which  Follows 
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SYSTEM  SET-UP 


Software/Hardware  Requirements 

The  IPPS  is  developed  to  run  on  IBM  compatible  MS-DOS  systems. 
The  data  files  created  when  using  this  system  will  contain 
thousands  to  tens  of  thousands  of  records.  For  ease  of  use,  a  high 
performance  386  or  486  machine  is  recommended  so  that  the  programs 
will  run  in  a  reasonable  time  frame.  The  system  as  laid  out  in 
this  report  requires  three  pieces  of  commercially  available 
software.  The  project  management  software  selected  is  Open  Plan. 
Open  Plan  operates  within  a  dBase  or  FoxPro  environment,  so  one  of 
these  pieces  of  software  is  also  required.  All  coding  included 
within  this  package  is  written  in  dBase.  Manning  curves  generated 
by  the  system  can  be  created  by  any  graphics  program  that  can  chart 
an  imported  dBase  file.  The  system  described  in  this  report  makes 
use  of  Lotus  Freelance.  Points  of  contact  for  required  software 
are  shown  in  table  1 . 


PRODUCT 

DEVELOPER 

POINT  OE  CONTACT 

Open  Plan 

Welcom  Software 

WST  corporation 

15995  North  Barkers 

Landing,  Suite  275 

Huston,  Tx77079 

Tel:  (713)558-0514 

dBaee  III 

Borland  International 

Local  software  dealer 

Fox  Pro 

Fox  Sofhvare 

Local  software  dealer 

Freelance 

Lotus  Development 

Local  software  dealer 

Tablel:  Software  requirements  for  the  IPPS, 
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Software  Installation  Procedure 


To  install  the  IPPS  programs  and  files  onto  your  hard  drive: 

1)  Open  Plan  must  be  installed  and  running  on  your  computer. 

2)  Insert  "Program  Disk"  Disk  1  (included  in  this  project) 
into  Drive  "B" 

3)  Use  the  DOS  COPY  Command  to  copy  all  files  from  the 
"Program  Diskl"  Disk  1  into  the  Open  Plan  Directory. 

This  is  done  by  typing  the  statement  shown  below  after 
prompt . 

C:>  COPY  B:*.*  C:\OPLAN 

4)  Repeat  the  copy  process  for  the  "Sample  Projects"  Disk  2 

(included  in  this  package) .  Open  Plan  usually  has  a 
separate  sub-directory  for  each  of  its  projects,  so  make 
sure  you  enter  the  proper  path.  This  is  done  by  typing 
the  statement  shown  below  after  the  prompt. 

C:>  COPY  B:*.*  C:\OPLAN\PROJ 

5)  When  in  Open  Plan  you  must  add  the  two  sample 
projects,  "MODEL"  and  "MODE",  -(i^o  Open  Plan's  Project 
Directory.  Then  use  the  Re-Build  Index  Utility  to  re¬ 
index  the  project  directory  and  both  projects. 

Figure  1  lists  all  of  the  files  copied  from  both  the  Program  Disk 
and  Sample  Projects  Disk. 


Note:  MODEL  is  the  empty  project  with  all  necessary  changes  to 

the  file  structures.  MODELA  is  a  completely  built  project 
with  table  assignments  for  area  laydown  requirements. 
This  model  was  created  by  processing  the  Build. dbf  data 
file  through  the  Model  Builder  Program.  The  standard 
setback  model  is  then  level  loaded  by  both  area  and 
manning  utilization. 
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Figure  1:  Installing  the  Integrated  ProductionPlanning  System. 
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SYSTEM  USE 


System  Information  Requirements 


An  effective  model  for  use  production  scheduling  must 
reflect  the  strategy  by  which  the  ship  will  be  built.  This  section 
will  discuss  what  information  should  be  developed  and  illustrates 
sample  formats  for  gathering  this  information. 


Documents  may  be  developed  to  describe  the  strategy  by  which 
the  ground  assembly,  join,  outfit,  erect  process  will  occur. 

Table  1  of  the  Written  Report  shows  five  strategy  sheets  that,  when 
taken  together,  will  provide  the  information  required  to  develop  an 
effective  MPS  for  the  process.  Figure  2  below  shows  the  strategy 
development  logic  flowchart  for  the  creation  of  the  Model  Builder 
Data  Base. 


Figure  2;  Strategy  development  logic  flow, 
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The  first  step  in  developing  this  information  is  to  create  the 
block/grand  block  breakdown  for  the  ship.  This  breakdown  (shown  in 
figure  3)  drives  the  pre-out fitting  strategy  for  the  vessel.  Once 
the  block/grand  block  breakdown  has  been  established,  the  other 
build  strategy  sheets  may  be  developed.  The  ground  assembly,  join, 
outfit,  and  erect  strategy  sheets  are  shown  in  figures  4  through  7. 
An  effective  build  strategy  is  a  function  of  a  yards  facilities, 
capacities,  and  ship  design.  These  documents  should  be  developed 
through  the  joint  effort  of  production,  planning,  materials,  and 
engineering.  This  development  should  be  done  concurrently  with  the 
development  of  structural  drawings  and  composites  so  that  these 
documents  can  both  influence  and  be  influenced  by  the  development 
of  the  block  breakdown  and  build  strategy. 
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Figure  3:  Block/Grand  Block  Breakdown  for  the  MV  WELL  PLANNED, 

This  figure  shows  the  manner  in  which  the  vessel  will  be  broken 
down  into  modules  for  construction.  The  figure  also  shows  which 
of  these  modular  blocks  are  joined  together  or  "Grand  Blocked"  prior 
to  their  erection  onto  the  ship,  Each  Block  and  Grand  Block  is 
assigned  a  unigue  name  (a  3  digit  number)  so  that  the  blocks  may 
be  identified  and  scheduled  by  the  Integrated  Production  Planning 
System. 
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ERECTION  "STAR"  CHART 


Rgure  4 :  Erection  "star"  chart  for  the  MV  WELL  PLANNED. 

This  figure  shows  the  date  that  each  erectabie  biock  and  grand  block 
wili  be  brought  to  the  ship.  These  dates  are  the  only  ones  that  are 
initiaiiy  fixed  within  the  Integrated  Production  Pianning  System. 

All  other  dates  (including  the  stack  dates  of  blocks  that  go  into 
grand  blocks)  are  developed  through  the  IPPS. 
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INTEGRATED  ASSEMBLY/OUTFIT  STRATEGIES 

BY  BLOCK  TYPE 
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FIGURE  5:  Integrated  Assembly/Outfit  Strategies  for  the  MV 
WELL  PLANNED.  This  figure  shows  the  build  strategy 
activity  durations  in  days,  and  manning  reguirements  in  hours 
for  each  of  the  block  making  up  the  ship,  This  table  is  developed 
jointly  between  steel  and  outfit  planners  and  production  personnel, 
Durations  and  budgets  shown  are  sufficient  to  accomplish  both 
the  structural  and  the  outfitting  work  planned  in  each  step. 

Work  should  be  scheduled  so  that  the  optimum  amount  of 
outfitting  is  installed  on  the  block  prior  to  erection.  Strategies 
should  also  consider  the  seguencing  of  structural  and  outfitting 
work  so  that  they  proceed  in  an  effective  manner, 
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GRAND  BLOCK  STRATEGY 
LOWER  HOUSE  -  GB  531 
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Figure  6;  Grand  Block  Strategy  for  the  lower  house  of  the  MV  WELL 
PLANNED,  This  figure  shows  the  build  strategy,  activity  durations, 
and  manning  requirements  for  the  lower  house  (GB  531).  The 
figure  shows  which  blocks  comprise  this  grand  block  and  the  time 
phasing  by  which  these  blocks  stack  into  the  grand  block,  A  sheet 
such  as  this  is  prepared  for  each  of  the  vessel's  grand  blocks. 
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PROCESS  LANE  STRATEGIES 


ASSEMBLY  PROCESS  LANE  FOR  WING  TANKS 


KEY 

♦  =  ERECTION  =  PRE-BLAST  (UP  RIGHT) 

I - 1  =  ADDED  FLOAT  U77777\  =  PRE-BLAST  (INVERTED) 

1^^  =  POST  BLAST  ■■  =  ASSEMBLY 
mm  =  BLAST  Sc  PAINT 


Figure  7:  Process  Lane  Strategy  for  the  MV  WELL  PLANNED.  The 
figure  shows  a  Gantt  chart  for  production  of  wing  tanks,  The 
assembly  process  for  each  of  these  blocks  will  occur  in  a  single 
dedicated  work  position.  In  order  to  accommodate  this,  float  is 
introduced  into  the  schedule  of  the  early  blocks  through  the 
process  lane. 
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As  noted  in  the  System  Development  Philosophy  section  of  the 
Project  Report,  a  Work  Breakdown  Structure  (WBS)  and  Organizational 
Breakdown  Structure  (OBS)  should  be  created  so  that  all  data 
developed  by  the  system  may  be  viewed  and  aggregated  in  meaningful 
ways.  These  structures  are  shown  in  figures  8  and  9. 
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ORGANIZATIONAL  BREAKDOWN 
STRUCTURE 


LEVEL  DIGITS 


Figure  9:  OBS  for  the  MV  WELL  PLANNED  sample. 


1 


2 


3 


4 


5 


1 


1 


1 


1 


1 


In  addition  to  build  strategy,  WBS,  and  OBS  it  is  also 
necessary  to  gather  information  regarding  resource  requirements. 
Manning,  critical  materials,  crane  requirements,  and  space 
utilization  are  just  a  few  items  that  can  be  defined  as  resources. 
Schedule  refinement  is  an  attempt  to  balance  utilization  of 
resources  while  maintaining  the  build  strategy  and  meeting  your 
project  objectives.  Therefore,  selecting  which  resources  to  track 
is  a  key  decision  in  the  development  of  an  Integrated  Production 
Planning  System.  Resources  to  be  tracked  by  the  system  should  be 
those  considered  critical  and  which  the  yard  wishes  to  control  as 
Master  Production  Schedules  are  developed.  The  decision  of  which 
resources  to  track  and  how  to  code  these  resources  should  be  made 
in  the  initial  stages  of  the  IPPS  development.  The  decision  will 
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determine  the  contents  of  the  Resource  Library  File,  the  structure 
of  the  Curve  Generation  File,  and  the  coding  of  the  Model  Builder 
and  Curve  Generation  Programs  (these  files  and  programs  will  be 
explained  later  in  this  manual)  .  The  resources  tracked  by  the  IPPS 
are  shown  in  Table  2 . 


RESOURCE 

RESOURCE 

CODE 

UNIT  OF 
MEASURE 

STEELFABRICATION  HOURS 

Hill 

HOURS 

STEEL  SUB-ASSEMBLY  HOURS 

H112 

HOURS 

STEEL  ASSEMBLY  HOURS 

H113 

HOURS 

BLAST  &  PAINT  HOURS 

H124 

HOURS 

OUTFITING  HOURS 

H123 

HOURS 

ERECTION  HOURS 

H114 

HOURS 

FLAT  ASSEMBLY  POSITION 

P1131 

EACH 

CURVED  ASSEMBLY  POSITION 

P1132 

EACH 

BLAST  &  PAINT  POSITION 

P124 

EACH 

ON-BLOCK  INVERTED  0/F  POSITION 

P12311 

EACH 

ON-BLOCK  UPRIGHT  0/F  POSITION 

P12312 

EACH 

ON-BLOCK  POST  BLAST  0/F  POSITION 

P1232 

EACH 

ASSEMBLY  COMPLETE 

P-A 

EACH 

BLOCK  ERECTION/STACKINQ 

P-E 

EACH 

Table  2:  Critical  resources  tracked  for  the  MV  WELL  PIANNED. 


Project  Creation 

This  section  will  describe  the  required  format  in  which  the 
production  strategy  information  is  entered  for  use  by  the  IPPS. 
All  information  encompassed  by  the  IPPS  is  written  to  and 
calculated  from  dBase  files.  The  files  used  by  the  system  and  a 
brief  explanation  of  how  these  files  and  structures  are  developed 
are  shown  in  table  3.  A  full  listing  of  all  file  structures  and 
their  required  format  is  found  in  appendix  I.  The  IPPS  uses  custom 
programs  written  for  this  project  and  the  Open  Plan  software 
system.  This  User' s  Manual  attempts  to  explain  those  items  not 
covered  in  the  Open  Plan  User's  Manual.  In  developing  and  using  an 
IPPS  based  upon  this  report,  the  user  should  refer  to  both  this 
manual  and  that  provided  by  Open  Plan. 
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FILE 

DESCRIPTION 

dBASE  STRUCTURE 
CREATION 

dBASE  RECORD 
CREATION 

BUILD  DATA 

Used  by  model  bulldor  program 
to  create  the  rocerds  of  the 
activity,  resource,  and 
relationship  file. 

Created  by  system  user. 

Created  by  system  user  from 
strategy  sheets. 

PROCESS  LANE 

DATA 

Used  by  model  builder  program 
to  establish  block  to  block 
process  Into  relationships. 

Created  by  system  user. 

Created  by  system  user  from 
strategy  sheets. 

IVSS  CODE 

Defines  the  work  breakdown 

structure  to  be  used  to  sort 

and  group  Information  In 
moaningful  ways. 

structure  defined  Interactively 
through  Open  Plan. 

Created  by  model  builder 
program. 

OBS  CODE 

Defines  the  organizational 

breakdown  structure  to  be  used 
to  sort  and  group  Information 

In  meaningful  ways. 

Structure  defined  Interactively 
through  Open  Plan. 

Created  by  user  Interatlon 
through  Opon  Plan. 

GRAND  BLOCK 

Defines  the  erectable  unit  to 

Structure  defined  Interactively 

Created  by  model  bulider 

CODE 

which  each  block  WIN  go. 

through  Open  Plan. 

program. 

CALENDER 

Defines  work  perlode,  how  many 
dsys  per  week  worked. 

Created  by  Open  Plan 

Developed  interactively  through 

Open  Plan  menu  system. 

HOLIDAY 

Links  with  calender  file  to 

define  days  off. 

Created  by  Open  Plan 

Developed  Interactively  through 

Open  Plan  menu  system. 

RESOURCE 

LIBRARY 

Defines  resources  to  be  tracked 

by  the  system. 

Created  by  Open  Plan 

Developed  Interactively  through 

Open  Plan  menu  system. 

ACTIVITY 

Defines  the  production  activities 
to  be  modeloe  by  the  system. 

Created  by  Open  Plan, 
requires  some  modification 

from  standard  structure. 

Created  by  model  bulider 
based  upon  info,  contained  In 

the  Model  Data  Fllo.  Dates 
determined  through  Open  Plan 
processing. 

RESOURCE 

Defines  the  resource  requirements 
for  each  activity 

Created  by  Open  Plan, 
requires  somes  modification 
from  standard  structurs. 

Created  by  model  bulider 
based  upon  info,  oontained  In 
the  Model  Data  Fllo. 

RELATIONSHIP 

Defines  the  relationship  between 
the  production  activities. 

Created  by  Open  Plan, 
requires  some  modification 

from  standard  structure. 

Created  by  modeol  builder 
based  upon  Info,  contained  In 

the  Model  Data  Fllo. 

AGGREGATION 

Defines  the  resource  requirements 
aggregated  as  a  function  of  time. 

Created  by  Open  Plan 

Generated  through  Open  Plan 
processsing. 

CURVE 

GENERATION 

Rewrites  the  resource  aggregation 
file  In  a  form  compatible  with 

Freelance  for  curve  generation. 

Created  by  system  user. 

Generated  by  the  Curvo 

Generation  Program  using  the 
Aggregation  Fllo. 

Table  3:  Files  required  for  use  by  the  Integrated  Production  Planning  System. 
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The  Integrated  Production  Planning  System  models  the 
activities  associated  with  the  assembly,  outfitting,  joining,  and 
erection  of  hull  blocks.  A  scheduling  model  with  sufficient  detail 
to  meet  the  system  objectives  will  be  large.  A  model  created  for 
a  700  foot  container  vessel  consists  of  approximately  3000 
activities,  3000  relationships,  and  10,000  resource  requirements. 
These  numbers  will  vary  depending  upon  the  size  and  complexity  of 
the  vessel  and  the  sizes  of  the  interim  products.  A  yardwide 
integrated  planning  model  is  too  large  to  make  practical  the 
entering  of  all  relevant  data  by  keyboard.  Therefore,  a  program 
has  been  developed  to  build  a  standard  setback  model  for  a  ship. 
This  Model  Builder  Program  uses  generic  strategies  by  block  type 
and  block  specific  data.  Each  build  strategy  establishes  a  set  of 
activities  and  sequence  by  which  a  block  is  assembled,  joined, 
outfitted  and  erected.  Build  strategies  must  be  established  that 
describes  the  manner  in  which  all  blocks  to  be  tracked  by  the  IPPS 
will  be  constructed.  These  build  strategies  are  hard  coded  into 
the  Model  Builder  Program.  The  build  strategies  used  for  the  MV 
WELL  PLANNED  hard  coded  into  the  Model  Builder  Program  are  shown  in 
figure  10.  The  Model  Builder  Program  obtains  the  block  specific 
information  from  the  Build  Data  File.  In  addition  to  the  Build 
Data  File,  a  Process  Lane  Data  File  is  created.  This  file 
establishes  the  link  between  a  process  lane  activity  and  the 
predecessor  block's  process  lane  activity.  All  information  entered 
into  these  files  can  be  found  on  the  strategy  sheets.  The 
information  required  by  the  Build  Data  File  and  Process  Lane  Data 
File,  along  with  the  strategy  sheets  from  which  this  information  is 
obtained,  is  shown  in  tables  4  and  5.  The  Model  Builder  Program 
creates  activity,  resource,  and  relationship  files  in  proper  format 
to  be  used  by  the  project  management  software.  For  the  detailed 
explanation  of  how  the  program  performs  this  task,  see  the  program 
logic  flowchart  in  appendix  IV. 
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Figure  10:  Strategies  hard  coded  into  the  Model  Builder  Program  for  the  MVWELL  PLANNED. 


16 


"Assembly  Stack"  Build  Strategy  (GRAND2) 


"Pre-Blast  (Upright)  Stack"  Build  Strategy  (GRANDS) 


"Pre-Blast  (inverted)  Stack"  Build  Strategy  (GRAND4) 


Figure  10:  (Continued)  Strategies  hard  coded  into  the  Model  Builder  Program 
for  the  MV  WELL  PLANNED. 
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FIELD  NAME 

DESCRIPTION 

INPUT  FROM 

DESCRIPTION 

Block  number 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

BLK_TYP 

Block  typo 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

STRATEGY 

Blook  build  strategy 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

GRAND 

Grand  block  to  which  each 

block  stacks 

Grand  Block  Strategy  Shoot 

ERECTION 

Data  each  block  erects  to  ship 
(if  block  stacks  to  grand  block, 
field  will  be  blank.) 

Erection  ‘Star’  Chart 

LAG_E 

Duration  from  the  day  the  first 
stacking  block  Joins  the  grandblock 
to  the  day  this  block  joins  the 
grandblock. 

Grand  Block  Strategy  Sheet 

ASSY_POS 

Assembly  build  position  requirement, 
fiat  or  curved  build  platten,  to  b. 
determined  from  block  type. 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

ASSY-D 

Assembly  duration 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

OF1_D 

Pro-blast  inverted  outfit  duration 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

OF2_D 

Pre-blast  upright  outfit  duration 

Integrated 

Assembly/Outfit 

Strat 

Sheet 

OF3-D 

Blast  &  paint  duration 

Integrated 

Aseembly/Outfit 

Strat 

Shoot 

OF4_D 

Post-blast  outfit  duration 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

BUD_OF1 

Pro-blast  Inverted  outfit  budget 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

BUD_OF2 

Pro-blast  upright  outfit  budget 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

BUD_OF3 

Blest  &  paint  budget 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

BUD_OF4 

Post-blast  outfit  budget 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

BUD_FAB 

Fabrication  budget 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

BUD_SUB 

Sub-assembly  budget 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

BUD_ASSY 

Assembly  budget 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

BUD_ERECT 

Erection  budget 

Integrated 

Assembly/Outfit 

Strat 

Shoot 

FIRST_S 

If  block  stocks  to  grand  block. 

Identifies  the  first  block  to 
stock  to  the  grand  block. 

Grand  Block  Strategy  Shoot 

Table  4:  Data  fields  of  the  Build  Data  File. 
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FIELD  NAME 

DESCRIPTION 

INPUT  FROM 

ID 

Activity  identification  for  the 
stage/sub-stage  of  the  biock  going 
through  the  process  iane. 

Process  Lane  Strategy  Shoot 

PRED 

Activity  identification  for  the  block 
proceeding  the  biock  iisted  In  ID 
through  the  process  lane. 

Process  Lane  Strategy  Shoot 

TYPE 

Typo  of  relationship  between  activities. 

Since  oniy  on.  biock  may  be  in  a 
dedicated  work  position  at  a  time, 
a  finish  to  start  (FS)  reiationship 

Wiii  be  used. 

LAG 

The  time  intervai  between  the 

activity  and  its  predecessor,  if  you 
wanf  one  activity  to  start  the  day 
after  the  other  is  oompleted,  the 
lag  is  0. 

Table  5:  Data  fields  of  the  Process  Lane  Data  File. 


Note:  Appendix  ii  contains  a  set  of  strategy  sheets  identifying  specifically 
where  the  data  for  each  field  of  the  Build  Data  File  and  Process 
Lane  Data  File  is  located. 
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Once  the  Build  Data  File  and  the  Process  Lane  Data  File  have 
been  created,  the  Model  Builder  Program  can  be  run.  The  program 
creates  a  series  of  activities,  resources,  and  relationships  for 
each  block  from  the  build  strategies  and  the  Build  Data  File. 
Inter-block  process  lane  relationships  are  established  from 
information  in  the  Process  Lane  Data  File.  ID's  for  each  activity 
created  by  the  Model  Builder  Program  are  established  based  upon  the 
contract  letter,  block  number,  and  the  stage  of  operation  for  each 
block  .  The  ID  coding  system  used  by  the  Model  Builder  Program  is 
shown  in  figure  11. 


01Jsl;0 


^SUB-PACKAGE  OF  BLOCK 
(Not  used  in  this  Model) 

-BLOCK  NUMBER 

(Supplied  by  BUILD  Data  Base) 


SUB-ACTIVITY  WITHIN  STAGE  OF  CONSTRUCTION 
(Determined  by  Strategy) 

'—STAGE  OF  CONSTRUCTION 
(Determined  by  Strategy) 

—  PRODUCT  CATEGORY 

(Determined  by  Strategy) 


■—CONTRACT  LETTER 

(Supplied  by  Menu  Selection) 


Figure  11:  Activity  ID  as  created  by  the  Modei  Buiider  Program. 


Figure  12  illustrates  the  activities,  resources,  relationships,  and 
codes  created  by  the  Model  Builder  Program  for  a  block  of  standard 
build  strategy.  Table  6  shows  the  sequence  of  steps  necessary  to 
build  a  setback  model  for  a  vessel  using  the  IPPS. 
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Rgure  12:  Model  as  created  by  the  Model  Builder  Program 

for  a  block  of  standard  strategy  on  the  MV  WELL  PLANNED. 
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(1)  Create  an  empty  Open  Plan  project  as  explained  in  the  Open  Plan 
manuals  (e.g.  WELLPLAN) . 

(2)  Create  the  structures  for  the  code  files  through  Open  Plan. 

Code  File  1  (Cl)-  WBS 
Code  File  2  (C2)-  OBS 
Code  File  4  (C4)-  Grand  Block  Code 

(3)  Create  the  Calendar  File  and  Holiday  File  through  Open  Plan. 

(4)  Build  the  Resource  Library  and  the  Resource  Availability  files 
(e.g.  OVERALL)  through  Open  Plan  showing  the  resources  the 
system  is  to  track  as  in  table  2.  Create  the  structure  of  the 
Curve  Generation  File  (e.g.  CURVES)  as  shown  in  table  6A. 

(5)  Build  the  OBS  file  (Code  C2)  through  Open  Plan.  A  sample  of 
the  OBS  file  created  for  the  MV  WELL  PLANNED  is  shown  in 
Appendix  III. 

Note:  A  common  Calendar  File,  Holiday  File,  OBS  File,  and 
Resource  Library  File  should  be  used  for  all  projects  being 
tracked  by  the  IPPS. 

(6)  Generate  a  setback  model  through  the  Model  Builder  Program. 

Z  Select  the  Integrated  Plan  System  menu  choice  under  the 
Process  heading  of  Open  Plan's  main  menu. 

I  Select  menu  option  1:  New  Model  Generation. 

Z  Select  menu  option  1:  Model  Builder  Program. 

i  Enter  the  contract  letter  designator  of  the  ship  for 
which  you  are  building  the  model  (you  must  have  a 
separate  contract  letter  for  each  vessel  being 
modeled  by  the  IPPS) . 

i  Enter  the  project  name  corresponding  to  the  project 
name  created  in  step  (1)  along  with  the  path  to 
which  you  want  the  data  files  created  by  the  IPPS 
written.  This  path  is  the  path  to  which  Open  Plan 
writes  each  of  its  projects  (e.g.  c:\WELLPLAN). 

I  Enter  the  name  of  the  Build  Data  Base  with  path 
(e.g.  c:\BUILD)  . 

The  Model  Builder  Program  creates  the  activity,  resource, 
and  relationship  file  in  Open  Plan  for  each  block  and  grand 
block.  If  the  Model  Builder  Program  runs  successfully,  it 
returns  a  message  saying  the  project  has  been  created  and 
asks  if  you  wish  to  add  any  process  lane  relationships. 

Z  Enter  the  field  name  and  path  of  the  Process  Lane  Data 
File  (e.g  c:\P_LANE). 

This  adds  the  block  to  block  process  lane  relationships. 
The  system  then  asks  if  you  wish  to  build  the  WBS  code  file 
iCl)  . 

I  Enter  'Y' . 

Z  Enter  the  WBS  code  file  path  and  name  as  created  in  step 
(2)  (e.g.  c:\sP8_cl) . 

This  creates  the  01  data  file.  The  system  then  asks  if  you 
wish  to  create  a  new  grand  block  code  field  (04) . 
t  Enter  'Y' . 

Z  Enter  the  Grand  Block  Code  File  path  and  name  as  created 
in  step  (2)  (e.g.  c:\SP8_C4). 

Z  Escape  back  to  the  Open  Plan  main  menu. 

(7)  Reindex  the  model  by  selecting  the  Rebuild  Indexes  menu  choice 
under  the  System  menu  heading  of  Open  Plan's  main  menu.  When 
in  the  Rebuild  Index  facility  of  Open  Plan  select  1  and  2  and 
then  9  to  exit. 


Table  6:  Model  creation  sequence  of  steps. 
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FIELD  NAME 

DESCRIPTION 

TODATE 

LAST  DAY  OF  EACH  AGGREGATION  PERIOD 

WORKPDS 

NO.  OF  WORK  DAYS  SCHEDULED  IN  AGG.  PERIOD 

Hill 

STEEL  FABRICATION  HOURS 

H112 

STEEL  SUB-ASSEMBLY  HOURS 

H113 

STEEL  ASSEMBLY  HOURS 

H1141 

STEEL  ERECT  HOURS 

H1142 

STEEL  JOIN  HOURS 

H114 

STEEL  JOIN/ERECT  HOURS 

H12311 

PRE-BLAST  INVERTED  OUTFIT  HOURS 

H12312 

PRE-BLAST  UPRIGHT  OUTFIT  HOURS 

H1231 

PRE-BLAST  OUTFIT  HOURS 

HI  232 

POST-BLASTOUTFIT  HOURS 

H123 

TOTALOUTFITHOURS 

H124 

BLAST&PAINTHOURS 

H11 

TOALSTEELHOURS 

HI  2 

TOTALOUTFIT/BLAST  &PAINTHOURS 

HI 

TOTALHOURS 

P_A 

BLOCK  ASSEMBLIES  COMPLETE 

P_E 

BLOCK  ERECTIONS  COMPLETE 

P1131 

FLAT  ASSEMBLY  POSITIONS  IN  USE 

P1132 

CURVED  ASSEMBLY  POSITIONS  IN  USE 

P113 

TOTAL  ASSEMBLY  POSITIONS  IN  USE 

P12311 

PRE-BLAST  INV.  OUTFIT  POSITIONS  IN  USE 

P12312 

PRE-BLAST  UPRIGHT  OUTFIT  POSITIONS  IN  USE 

P1231 

PRE-BLAST  OUTFIT  POSITIONS  IN  USE 

P1232 

POST-BLAST  OUTFIT  POSITIONS  IN  USE 

P123 

TOTAL  OUTFIT  POSITIONS  IN  USE 

P124 

BLAST  &  PAINT  POSITIONS  IN  USE 

P12 

TOTAL  0/F  AND  B  &  P  POSITIONS  IN  USE 

Table  6A  Structure  of  the  Curve  Generation  File  for  the  MV  WELL  PLANNED. 
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Schedule  Development 


The  steps  described  in  table  6  will  create  a  model  for  a  single 
hull  .  However,  the  IPPS  tracks  the  ground  assembly,  outfit, 
joining,  and  erection  of  all  projects  in  process  and  planned  for 
the  yard.  It  is  therefore  necessary  to  merge  the  model  created  by 
the  Model  Builder  Program  (e.g.  WELLPLAN)  with  a  single,  yardwide 
Open  Plan  project  (e.g.  OVERALL).  This  model  contains  all  the  work 
to  be  tracked  by  the  IPPS  on  current  and  planned  contracts.  The 
project  OVERALL  has  the  same  Calendar  File,  Holiday  File,  OBS  file, 
and  Resource  Library  File  as  that  of  the  individual  vessel  models. 
The  WBS  and  Grand  Block  Code  Fles  for  OVERALL  are  a  combination  of 
the  WBS  and  Grand  Block  Code  Files  of  the  individual  vessels  being 
tracked.  To  merge  the  project  WELLPLAN  into  the  project  OVERALL, 
follow  the  sequence  of  steps  shown  in  table  7 . 


(1)  Select  the  Merge  Copy  menu  choice  under  the  Utilities  heading 
of  Open  Plan's  main  menu. 

(2)  Choose  menu  option  2:  Merge 

1  Enter  the  project  to  contain  the  merged  projects  (e.g. 
OVERALL  )  . 

1  The  program  asks  if  you  want  to  delete  all  project  data. 
Enter  "No' . 

1  Enter  the  project  you  are  merging  into  the  model  (e.g. 
WELLPLAN  )  . 

1  The  program  asks  if  you  need  to  renumber.  Enter  'No'  . 

1  The  program  asks  if  you  wish  to  merge  another  project. 

Leave  blank,  hit  return. 

(3)  Enter  '9'  to  return  to  the  Open  Plan  main  menu. 


Table  7:  Model  merge  sequence  of  steps. 


Once  the  projects  have  been  combined  into  an  overall  model,  time 
analysis  may  be  run  to  determine  the  first  cut  schedule  of 
activities  tracked  by  the  IPPS.  Before  time  analysis  is  run,  the 
only  dates  in  the  system  are  the  fixed  dates  on  which  blocks  or 
grand  blocks  erect  to  the  ship.  Time  analysis  will  create  three 
sets  of  dates  for  each  activity:  early,  late,  and  scheduled.  The 
model  is  constrained  only  by  the  back  end  erection  activities. 
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since  there  is  no  constraint  placed  on  early  dates,  the  only  dates 
that  have  any  meaning  to  the  system  are  the  late  dates.  All 
programs  within  the  IPPS  use  late  dates.  The  sequence  of  steps  to 
perform  time  analysis  is  explained  in  the  Open  Plan  manual.  The 
processed  yardwide  model  must  be  analyzed  to  see  if  the  manning  and 
facility  utilization  implied  by  the  schedule  are  acceptable. 
Manning  and  facilities  are  investigated  by  creating  resource 
utilization  curves  and  laydown  charts.  Resource  utilization  data 
is  generated  by  creating  the  Aggregation  File  for  the  overall 
model.  The  Aggregation  File  is  then  processed  by  the  Data  Program 
of  the  IPPS.  The  dBase  file  created  by  the  Data  Program  is 
imported  into  a  graphics  software  package  and  resource  utilization 
curves  are  produced.  Table  8  shows  the  sequence  of  steps  necessary 
to  create  the  resource  utilization  curves.  For  the  detailed 
explanation  of  how  the  Build  Program  performs  its  task,  see  the 
program  logic  flowchart  in  appendix  IV.  A  sample  of  the  resource 
utilization  curve  created  by  the  IPPS  is  shown  in  figure  13. 


TOTAL  OUTFITTING 
MANNING  REQUIREMENTS 


Figure  13;  Resource  utilzation  curve  developed  through  the  IPPS  for  total 
outfitting  manning  requirements  (resource  code  H123,) 
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(1)  Select  the  General  Reports  menu  choice  under  the  Reports 
heading  of  Open  Plan's  main  menu. 

•  Select  F5  for  Resource. 

•  Select  HISTRES-  Resource  histogram  from  aggregation  file. 

•  Enter  the  model  name  (e.g.  OVERALL)  of  project  for  which  you 
are  creating  the  resource  utilization  curves. 

•  The  system  asks  if  you  need  to  do  aggregation: ' Y' . 

•  Enter  the  resource  availability  file  (e.g.  OVERALL) .  This 
file  is  the  resource  availability  file  created  in  step  (4) 
of  table  6. 

’•  Enter  the  aggregation  file  name  (e.g.  OVERALL)  . 

•  Enter  the  aggregation  period  length  (e.g.  7  for  weekly 
aggregation  ) . 

•  Enter  the  aggregation  start  date  (e.g.  12/30/91).  It  is 
best  to  select  a  Monday  so  that  the  ending  date  of  the 
aggregation  period  will  include  a  full  work  week  and  end  on 
Sunday. 

•  Enter  number  of  aggregation  periods  (e.g.  104  for  2  Years) . 
You  can  select  whatever  period  you  feel  appropriate,  the 
time  span  should  be  at  least  as  long  as  the  span  of  the 
project  for  which  you  are  developing  schedules. 

Open  Plan  will  create  the  aggregation  file  (OVERALL. agg  in  this 
example)  containing  data  regarding  the  usage  over  time  of  each 
resource  defined  in  the  resource  library. 

Z  When  the  aggregation  file  is  complete,  the  system  returns 
asking  for  resource  codes  for  reporting  purposes.  At  this 
point,  escape  from  the  system  by  entering  . 

Z  Enter  again  to  return  to  Open  Plan's  main  menu. 

(2)  Select  the  Integrated  Plan  System  menu  choice  under  the  Process 
heading  of  Open  Plan's  main  menu. 

Z  Enter  '2^:  Project  Analysis. 

I  Enter  '1'  :  Data  Generation  Program. 

Z  Enter  the  aggregation  file  name  and  path  as  created  in  step 
(1)  above  (e.g.  C:\OVERALL). 

Z  Enter  the  curve  generation  file  path  and  name  as  created  in 
.  step  (4)  of  table  6  (e.g.  C:\CURVES). 

Z  Enter  the  number  of  days  per  period,  start  date,  and  number 
of  aggregation  periods  as  was  entered  when  creating  the 
aggregation  file  in  step  (1)  of  this  procedure. 

The  data  generation  program  will  take  the  Aggregation  File 
developed  by  Open  Plan  and  rewrite  it  to  the  Curves  Data  File 
in  a  form  suitable  for  curve  generation  by  the  graphics 
software . 

Z  Escape  back  to  Open  Plan  main  menu. 

(3)  Import  the  fields  you  are  investigating  (e.g.  Hll  if  you  are 
investigating  total  steel  hour  utilization)  into  a  graphics 
software  program  and  print  out  the  curves.  It  is  recommended 
that  standard  templates  be  developed  within  the  graphics 
program  for  creation  of  resource  utilization  curves.  The  start 
date  and  time  span  shown  on  the  templates  should  correspond  to 
the  aggregation  and  curves  file  generated  in  the  previous 
steps . 


Table  8:  Resource  utilization  curve  generation  sequence  of 
steps . 
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After  resource  utilization  curves  have  been  analyzed  and 
preliminary  schedule  leveling  has  been  accomplished,  laydown  charts 
are  developed.  These  charts  graphically  display  space  utilization 
within  a  yard  by  showing  the  location  of  blocks  as  a  function  of 
time.  The  Laydown  Generation  Program  uses  the  activity  file  of  the 
Overall  Production  Model  after  processing  by  the  project  management 
software.  The  program  takes  the  activity  file  and  extracts  the 
dates  and  locations  necessary  to  develop  laydown  schedules  for  each 
production  area.  For  a  detailed  explanation  of  how  the  Laydown 
Generation  Program  performs  its  task,  see  the  program  logic 
flowchart  in  appendix  IV.  The  IPPS  as  currently  developed  has  no 
automated  method  for  assigning  laydown  positions  to  activities. 
The  assignment  is  made  by  manually  inputting  the  laydown  locations 
into  the  "TABLE"  field  of  the  Overall  Model  activity  file. 
Automation  of  the  laydown  position  assignment  process  is  an  area 
which  the  system  users  may  wish  to  explore.  Once  all  activities 
for  which  laydown  charts  are  developed  have  been  assigned  a  laydown 
location,  the  laydown  charts  may  be  produced.  The  seguence  of 
steps  required  to  produce  the  laydown  charts  are  shown  in  table  9. 
A  sample  of  a  laydown  chart  created  by  the  IPPS  is  shown  in  figure 
14. 


(1)  Select  the  Integrated  Plan  System  menu  choice  under  the  Process 
heading  of  Open  Plan's  main  menu. 

(2)  Select  4:  Production  Schedule  Update. 

(3)  Select  3:  Laydown  Schedules. 

(4)  Enter  the  model  name  with  path  (e.g.  C:\0VERALL)'. 

The  program  will  set  up  required  fields  and  re-index. 

(5)  The  program  will  ask  if  you  wish  to  recalculate  placements.  If 
laydown  locations  or  schedule  changes  have  been  made  since  the 
laydown  was  last  processed,  enter  .  If  no  changers  have  been 
made  since  the  last  laydown  processing,  enter  'N'  and  the 
program  advances  to  the  next  step  without  recalculating. 

(6)  Place  an  'X'  by  all  areas  for  which  you  wish  laydown  tables 
printed.  Place  an  'X'  by  all  time  periods  for  which  you  wish 
laydowns  printed. 

The  program  will  produce  the  laydown  charts  requested. 

(7)  Escape  back  to  the  Open  Plan  main  menu. 


Table  9:  Laydown  chart  generation  sequence  of  steps. 
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Figure  14 


Once  scheduling  iterations  have  been  performed  and  a  credible 
schedule  developed,  the  IPPS  will  produce  Gantt  charts  for  each  of 
the  blocks  and  grand  blocks.  Table  10  shows  the  seguence  of  steps 
necessary  to  create  the  Gantt  charts.  For  a  detailed  explanation 
of  how  the  Gantt  Generation  Program  performs  its  task,  see  the 
program  logic  flowchart  in  appendix  IV. 


(1) 

Select  the  Integrated  Plan  System  menu  choice  under  the 
heading  of  Open  Plan's  main  menu. 

Process 

(2) 

Select  3:  Baseline  Schedule  Generation. 

(3) 

Select  2:  Master  Schedules  (Gantt  Chart  Form). 

(4) 

Enter  the  model  name  with  path  of  project  for  which  you 
generate  Gantt  charts  (e.g.  C:\0VERAEL). 

wish 

to 

(5) 

Enter  the  contract  letter  of  the  block  for  which  you 
view  the  Gantt  chart. 

wish 

to 

(6) 

Enter  the  block  number  for  which  you  wish  to  view 
chart.  The  Gantt  chart  and  table  of  activity  dates 
block  requested  will  appear  on  the  screen.  The  program 
you  wish  a  hard  copy. 

a  Gantt 
for  the 
asks  if 

(7) 

To  print  a  hard  copy  of  the  Gantt  chart  enter  'Y' . 

(8) 

Escape  back  to  Open  Plan  main  menu. 

Table  10:  Gantt  chart  generation  sequence  of  steps. 

When  a  Gantt  chart  for  a  grand  block  is  requested,  only  the 
activities  at  the  grand  block  level  appear  on  the  screen.  When  a 
hard  copy  of  the  Gantt  chart  is  printed,  both  the  activities  for 
the  grand  block  and  the  blocks  stacking  to  the  grand  block  are 
shown  .  A  sample  of  a  grand  block  Gantt  chart  produced  by  the  IPPS 
is  shown  in  figure  15. 
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Figure  15:  Gantt  charts  produced  by  the  Integrated  Production 
Planning  System  for  Grand  Block  510  of  the  MV  WELL 
PLANNED. 
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Progressing  and  Updating  the  Model 


A  schedule  is  a  dynamic  rather  then  a  static  document.  For 
schedules  to  remain  current  and  meaningful,  they  must  be  updated 
based  upon  input  from  all  affected  parties.  This  input  may  be 
received  at  regularly  scheduled  meetings  where  production  plans  are 
updated  to  reflect  actual  and  projected  progress.  These  meetings 
are  described  in  the  Project  Report  section  of  this  development. 
The  IPPS  model  may  be  updated  and  progressed  as  explained  in  the 
Open  Plan  User's  manual.  Revised  schedules,  manning  curves,  and 
laydowns  are  produced  from  the  updated  model. 


CUSTOMIZING  THE  SYSTEM  FOR  USE  IN  YOUR  YARD 

As  stated  earlier,  the  Integrated  Production  Planning  System 
presented  in  this  report  is  not  intended  to  be  a  turn  key  system. 
To  apply  the  methods  and  techniques  of  this  report,  a  yard  must 
establish  a  team  to  develop  a  planning  system.  The  IPPS  should  not 
be  viewed  as  a  computer  system,  it  is  a  production  planning  system 
that  makes  use  of  computer  tools.  Simply  obtaining  and  installing 
the  software  will  not  give  a  shipyard  an  operable  system.  To  be 
successful,  a  yard  must  expend  the  time  and  effort  necessary  to 
develop  and  maintain  the  system.  Coding  must  be  altered  to  reflect 
the  yard's  facilities,  production  strategies,  organization,  and 
work  breakdown.  Decisions  must  be  made  as  to  which  resources 
should  be  tracked  by  the  IPPS.  Developing  an  Integrated  Production 
Planning  System  is  a  significant  task.  However,  once  developed, 
the  IPPS  is  a  valuable  tool  that  will  assist  shipyard  personnel  in 
making  effective  production  decisions. 
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HELP!!!!! 


p\j 


^Of\ipfj 


STUCK? 


B09 


S£09 


UOStT 


yi^ppALLED? 


®''OCI«07 


If  you  can  track  us  down,  we  would  like  to  help.  Our  number 
and  address  as  of  Spring  '92  is  shown  below.  Please  do  not 
hesitate  to  write  or  call. 


Rich  Neumann  or  Dave  McQuaide 
MS  07 

National  Steel  &  Shipbuilding  Co. 
Harbor  Drive  &  28th  St. 

San  Diego,  Ca.  92186-5278 

call  (61  9)  544-3583  for  Rich  Neumann 
or  (619)  544-8481  for  Dave  McQuaide 
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V.  PROGRAM  CODE 

VI.  APPLICATION  OF  PC  BASED  EACILITIES  SIMULATION 


APPENDIX 


LISTING  OF  THE  FILE  STRUCTURES 
USED  BY  THE  IPPS 


BUILD,  dbf  -  Build  Data  File 


Field 

Type 

Width 

BLOCK 

Character 

3 

BLK  TYPE 

Character 

12 

STRATEGY 

Character 

6 

GRAND 

Character 

3 

ERECTION 

Date 

8 

LAG  E 

Numeric 

3 

ASSY  POS 

Numeric 

6 

OFl  D 

Numeric 

6 

OF2  D 

Numeric 

6 

OF3  D 

Numeric 

6 

OF4  D 

Numeric 

6 

BUD  OFl 

Numeric 

6 

BuD  oF2 

Numeric 

6 

BuD  oF3 

Numeric 

6 

BuD  oF4 

Numeric 

6 

BUD  FAB 

Numeric 

6 

BUD  SUB 

Numeric 

6 

BUD  ASSY 

Numeric 

6 

BUD  ERECT 

Numeric 

6 

FIRST  S 

Character 

3 

P_LANE . dbf 

-  Process  Lane 

Data  File 

Field 

Tvoe 

Width 

ID 

Character 

10 

PRED 

Character 

10 

TYPE 

Character 

2 

GRAND 

Character 

3 

LAG 

Numeric 

3 

RELTF 

Numeric 

5 

RELFF 

Numeric 

5 

PLOTJY 

Numeric 

4 

PLOTIX 

Numeric 

4 

PLOTAY 

Numeric 

4 

PLOTIY 

Numeric 

4 

PLOTJX 

Numeric 

4 

RELCAL 

Numeric 

3 

WBS_C1 . cod 

-  Code  File  1 

(WBS) 

Eield 

Tvoe 

Width 

Cl 

Character 

10 

CIDESC 

Character 

60 

OBS  C2  .  cod 


-  Code  File  2  (OBS) 


Field 

Type 

Width 

C2 

Character 

10 

C2DESC 

Character 

60 

GRD  C4.  cod 

-  Code  File  4 

(Grand  Block  Code) 

Field 

Type 

Width 

C4 

Character 

10 

C4DESC 

Character 

60 

PROJECT. cal 

-  Calender  Data 

Eile 

Field 

Type 

Width 

CALENDER 

Numeric 

3 

HOLIDAYFIL 

Character 

8 

DAYl 

Numeric 

1 

DAY  2 

Numeric 

1 

DAY  3 

Numeric 

1 

DAY  4 

Numeric 

1 

DAYS 

Numeric 

1 

DAY  6 

Numeric 

1 

DAY7 

Numeric 

1 

PROJECT. hoi 

Holiday 

Data  File 

Field 

Type 

Width 

HOLIDAY 

8 

PROJECT. rds 

-  Resource  Library 

Data 

File 

Field 

Type 

Width 

Dec 

RESCODE 

Character 

6 

RESDESC 

Character 

20 

UNIT 

Character 

10 

UNITCOST 

Numeric 

10 

2 

THRESHOLD 

Numeric 

5 

RESTYPE 

Character 

1 

RESCLASS 

Character 

1 

SUPPRESS 

Character 

1 

MODEL. act  &  MODELA.act  -  Activity  Data  File  for  projects  MODEL  and 

MODELA 


Field 

Type 

Width 

ID 

Character 

10 

D 

Numeric 

4 

CAL 

Numeric 

3 

DS 

Character 

30 

TYPE 

Character 

1 

PROG 

Numeric 

3 

TARGS 

Date 

8 

TARGE 

Date 

8 

cl 

Character 

10 

C2 

Character 

10 

C3 

Character 

10 

C4 

Character 

10 

FF 

Numeric 

5 

TF 

Numeric 

5 

ESDATE 

Date 

8 

EFDATE 

Date 

8 

LSDATE 

Date 

8 

LFDATE 

Date 

8 

SSDATE 

Date 

8 

SFDATE 

Date 

8 

CRITICAL 

Numeric 

1 

LOGICODE 

Character 

1 

COMPS TAT 

Numeric 

1 

ACTS 

Date 

8 

ACTF 

Date 

8 

BSTART 

Date 

8 

BFINISH 

Date 

8 

BCOST 

Numeric 

9 

ACOST 

Numeric 

9 

PCOMP 

Numeric 

3 

ACOST  TLP 

Numeric 

9 

PCOMP  TLP 

Numeric 

3 

RESCOST 

Numeric 

9 

TARGSTYPE 

Character 

2 

TARGFTYPE 

Character 

2 

EEDATE 

Date 

8 

DELAYRES 

Character 

6 

COMPREMDUR 

Numeric 

4 

XEDATE 

Date 

8 

ACTYPE 

Character 

1 

MAXD 

Numeric 

4 

MAXSPLITS 

Numeric 

2 

MINSPLITD 

Numeric 

4 

RSCLASS 

Character 

1 

RESLABUNIT 

Numeric 

9 

FTF 

Numeric 

5 

SDUR 

Numeric 

4 

PLACEMENT 

Character 

2 

TABLE 

Character 

5 

SIZE 

Character 

5 

MODEL,  res  &  MODELA.  res  -  Resource  Data  File  for  projects  MODEL  and 

MODELA 


Field 

Type 

Width 

ID 

Character 

10 

RESCODE 

Character 

6 

LEVEL 

Numeric 

5 

OFFSET 

Numeric 

3 

PERIOD 

Numeric 

3 

LEVTYPE 

Character 

1 

MODEL,  rel  &  MODELA. rel  -  Relationship  Data  File  for  projects  MODEL 

and  MODELA 


Eield 

Tvoe 

Width 

ID 

Character 

10 

PRED 

Character 

10 

TYPE 

Character 

2 

LAG 

Numeric 

3 

RELTF 

Numeric 

5 

RELEE 

Numeric 

5 

PLOTJY 

Numeric 

4 

PLOTIX 

Numeric 

4 

PLOTAY 

Numeric 

4 

PLOTIY 

Numeric 

4 

PLOTJX 

Numeric 

4 

RELCAL 

Numeric 

3 

PROJECT.  aVl 

-  Resource  Availability 

Eield 

Tvoe 

Width 

RESCODE 

Character 

6 

LEVEL 

Numeric 

5 

EROMDATE 

Date 

8 

TODATE 

Date 

8 

RES CAL 

Numeric 

3 

CURVE  .  dbf  -  Curve  Generation  Data  File 


Field 

TODATE 

WORKED S 

Hill 

H112 

H1131 

H1132 

H1133 

H113 

H1141 

H1142 

H114 

H12311 

H12312 

H1231 

H1232 

H123 

H124 

Hll 

H12 

HI 

P  A 

PEE 

P1131 

P1132 

P1133 

P113 

P12311 

P12312 

P1231 

P1232 

P123 

P124 

P12 


Type 

Date 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 

Numeric 


Width 

8 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 


APPENDIX  I 


STRATEGY  SHEET  LOCATION  OF 
BUILD  DATA  FILE  INFORMATION 


ERECTION  "STAR"  CHART 


Erection  "Star"  Chart  showing  data  gathered  for  use  by  the  Modei 
Buiider  Program. 


INTEGRATED  ASSEMBLY/OUTFIT  STRATEGIES 

BY  BLOCK  TYPE 


BLOCK 

L _ 

BLK 

TYPE 

BLOCK 

NUMBERS 

BUILD 

STRAT. 

ASSY 

PRE¬ 

BLAST 

INVERTED 

PRE¬ 

BLAST 

UPRIGHT 

BLASTS 

PAINT 

POST 

BLAST 

ERECT/ 

STACK 

BLK.TYPE 

STRATEGY 

ASSY_POS 

(Bai«d  upon 
block  typo) 

— 

1  1 

p 

foo 

QCO 

(ozopzo 

^84€W50 

STANDARD 

20 

1500 

5 

250 

5 

100 

5 

250 

20 

1000 

TRANS. 

BHD. 

123,133 

143 

STANDARD 

15 

500 

5 

150 

— 

5 

100 

5 

150 

20 

400 

160,261 

262 

STANDARD 

15 

2000 

10 

300 

5 

150 

5 

100 

5 

150 

20 

1500 

STERN 

161,162 

GRAND2 

15 

1000 

- 

— 

- 

- 

20 

200 

•  DECK 

<^NDA^ 

15 

800 

5 

200 

— 

5 

100 

5 

200 

20 

500 

MAIN 

DECK 

221 ->242 

GRAND4 

15 

1000 

- 

- 

- 

- 

20 

150 

121->152 

STANDARD 

15 

800 

5 

150 

— 

5 

100 

5 

150 

20 

600 

BOW 

200 

STANDARD 

Cf>Sl 
f  02555 

'  0255  j 

CS)s 

aq)(g 

BOW 

010,100 

GRAND3 

20 

2000 

— 

— 

- 

20 

350 

HOUSE 

310->350 

GRAND  1 

15 

800 

20 

800 

5 

200 

5 

100 

— 

20 

300 

MAST 

401,402 

SHOP 

— 

10 

300 

— 

5 

100 

20 

700 

20 

350 

RUDDER 

499 

STANDARD 

30 

1000 

— 

— 

5 

100 

— 

20 

650 

CASEING 

360 

STANDARD 

15 

900 

10 

500 

10 

500 

5 

100 

10 

500 

20 

650 

STACK 

400 

STANDARD 

20 

1000 

— 

10 

500 

5 

100 

10 

500 

20 

600 

Integrated  assembly/outfit  strategies  showing  data  gathered  for  use  by 
the  Modei  Buiider  Program. 


jd:ASSY_D 
OF 1_D 
•6:  0F2_D 
S: OF3_D 
3:  0F4_D 


BUD_ASSY 
BUD_OF 1 
X:  BUD_0F2 
S:  BUD_OF3 
BUD_0F4 
X:  BUD_ERECT 


GRAND  BLOCK  STRATEGY 
LOWER  HOUSE  -  G.B.  531 


GRAND 


FIRST 

STACKING 


BLOCK  > 

^GRAND 

BLOCK 

310 

^(53) 

310 

311 

531 

310 

312 

531 

310 

321 

531 

310 

322 

531 

FIRST_S  — 

f 

STACKING 
LAG  FROM 
FIRST 
BLOCK 


20 


20 


BLK 

TYPE 

BLOCK 

NUMBER 

GRAND 

BUILD 

STRAT. 

ASSY 

PRE¬ 

BLAST 

PRE¬ 

BLAST 

UPRIGHT 

BLAST& 

PAINT 

POST 

BLAST 

ERECT/ 

STACK 

INVERfTED 

HOUSE 

GB 

531 

531 

GRAND2 

— 

40 

2500 

5 

700 

15 

1500 

20 

1200 

Grand  block  strategy  sheet  showing  data  gathered  for  use  by  the 
Model  Builder  Program. 


PROCESS  LANE  STRATEGIES 


♦  =  ERECTION 
I  I  =  ADDED  FLOAT 
—  =  POST  BLAST 

=  BLAST  &  PAINT 


=  PRE-BLAST  (UP  RIGHT) 
=  PRE-BLAST  (INVERTED) 
HI  =  ASSEMBLY 


FINISH  TO  START 
RELATION  FROM 
ASSY  OF  BLOCK 
121  TO  ASSY  OF 
BLOCK  122 


Process  lane  strategies  showing  data  gathered  for  use  by  the 
Model  Builder  Program. 


APPENDIX  II 


OBS  CODE  DATA  FILE 


OBS  CODE  DATA  FILE 


CODE  FIELD  2  (C2) 

DESCRIPTION  (C2DESC) 

1 

Production 

11 

Steel  Area’s 

12 

Non-Steel  Areas 

111 

Steel  Fabrication 

112 

Steel  Sub-Assembly 

113 

Steel  Assembly 

114 

Steel  Erection 

1131 

Steel  Assembly  -  Flat  Block 

1132 

Steel  Assembly  -  Curved  Block 

1141 

Erection  -  On-Board 

1142 

Erection  -  Grand  Block  Stacking 

121 

Pipe  Shop 

122 

Vent  Shop 

123 

Outfitting 

124 

Blast  &  Paint 

1231 

Outfitting  -  Pre-Blast 

1232 

Outfitting  -  Post  Blast 

12311 

Outfitting  -  Pre-Blast  (Inverted) 

12312 

Outfitting  -  Pre-Blast  (Upright) 

APPENDIX 


V 


PROGRAM  LOGIC  FLOW  CHARTS 

FOR 


Z  MENU  SYSTEM 
Z  MODEL  BUILDER 

Z  RESOURCE  UTILIZATION  CURVE  GENERATION 
Z  LAYDOWN  CHART  GENERATION 
Z  GANIT  CHART  GENERATION 


PROGRAM  FLOW 


Return  to 
Open  Plan 


SP8_MENU,prg 

USQICDIAQFHM 


Set  Procedure  to 
SPSJdENU 


1 1^3  he  -Eac*  Pressed^ 


SP8_M1.prg 

LOGIC  DIAGRAM 


YES 


^  IF  ^ 
"Esc"  Fresaed 


MODEL_B,prg 

LOGIC  DIAGRAM 


r 

I 

I 


P 


Tkirr%T\r:^r 


MODEL_B.prg 


MODEL_B.prg 


MODEL_B.prg 


PROCEDURE  ACTl 

LOGIC  DIAGRAM 

Procedures  ACTG1,  ACT2  &  ACTG2  are  Similar 


PROCEDURE  RELl 

LOGIC  DIAGRAM 

Procedures  RELG1,  REL2,  RELG2  &  REL3 

are  Similar 


Return  to 
Calling 
^rogram^ 


PROCEDURE  RESl 

LOGIC  DIAGRAM 

Procedures  RESG1,  RES2  &  RESG2  are  Similar 


^8_M2.pi'g 

SIC  DIAGRAM 


SP8J)ATA.prg 

LOGIC  DIAGRAM 


Continumi  ett  Pag€  2 


Contuumi  from  Pagt  1 


Select  ’AGG'  | 

'' 

r 

Set  the  Relattonship 
with  the  CSnrve  File 
to  Metdring  Date* 

> 

r 

Update  Si 

Eieen  ln&  | 

r 

Store  Reaooioe 
lofonnatian  to 
Memoiy  Vaiiahle* 

1 

r 

Procees 
Data  for 

Kesotuce  I 
Gia^iiiig  1 

I — ^CALL^ — I 


Reaource 

at 

Xfanhntim 


Pzocednre 

DAXAl 


} 


1 — ^CAUi^ — I 


jRemmrce 

M 

Poeitian 


Procedure 

DAXA2 


} 


Theee  steps 

are  repeated 

for  each  Resource  used  in 

the  Praject. 

MANHOUBS 

POSITION 

HUl 

H112 

P11S2 

H1131 

PUSS 

HUS2 

P12SU 

miss 

P12312 

H1141 

P12S2 

H1142 

P124 

H12SU 

P^ 

H12S12 

P_E 

H1232 

H124 

> 

Process  the  Snmmary 

Data  for  all  Besoorces 

MANHOURS 

POSITION  1 

mis 

mi4 

m231 

m23 

P12 

mi 

m2 

m 

Page 


SP8_DATA.prg 


SP8-DATA 


PROCEDURE  DATAl 

LOGIC  DIAGRAM 
Procedure  DATA2  is  similar 


! 


SP8_M3.prg 


SP8_GNT.prg 

LOaiC  DIAGRAM 


PROCEDURE  DATE_BAR 

LOGIC  DIAGRAM 


_M3.prg 


PROCEDURE  GANTTJ 

LOGIC  DIAGRAM 


Return  to 
Calling  Program 


PROCEDURE  G_PAGE_A 

LOGIC  DIAGRAM 

Procedure  GLPAGLG,  GJIXI  &  SCREEN1  are  Similar 


Print  Statements  fir 
Date  Table  Headers 


Production  Schedule 
Table  Format 


(  Block  Erect  ) 

{  0/F  Down  Hand  ) 
(  O/F  Uprigfit  ) 

(  Blast  &  Paint  ) 

(  Post  Blast  O/F  ) 


Print  Statements  fir 
Assy  &  O/F  Floats 


Print  Statements  fir 
Gantt  Headers 


Production  Schedule 
Gantt  Format 


Print  Statements  fir 
Background  Shades 


CASE: 


If 

Steel  Fab 


Store  Activity 
Information  to 
Print  Variables 
(Steel  Fab) 


All  Cases  are  Similar 
to  Steel  Fab 

Steel  Sub  Assy  O/F  Down  Haixl 


Steel  Assy 
Block  Staddng 
Block  Erection 


O/F  Uprigfit 
Blast  &  Faint 
Post  Blast  O/F 


Calculate  Gantt  Bar 
Information 


Print  Gantt  Bar 
&  Information 


Next  Record 


Calling 


Return  to  ^ 
SP8-MENU.prg 


SP8_M4.prg 

LOGIC  DIAGRAM 


Set  Procedure  to 
SP8_M4 


^  IF  ^ 
"Esc"  Pressed, 


SP8_m.pr§ 

LOGIC  DIAGRAM 


PROCEDURE  PRT_LAy 

LOGIC  DIAGRAM 


Return  to 
SP8_LAy.prg 


PROCEDURE  PLACEMNT 

LOGIC  DIAGRAM 


Go  to  the  'Top 
of  the  File 


Skip  all  Record  with! 
Rla  ok  a  Table  Field  I 


^  If  \ 

End  of  File 


PROCEDURE  TABLEJ 

LOGIC  DIAGRAM 

Procedures  SHOP.  TABLE_2,  AREA_A  &  AREA_B 

are  Similar 


PROCEDURE  GANTT  In 

LOGIC  DIAGRAM 
Procedure  DATA  In  is  similar 


APPENDIX  V 


PROGRAM  CODE 


SPS  HENU.PRG 


Formatted  by  dANALYST  V7.3a  March  24,  1992  9:45  AH 


Page  1 


IHPUT  FILE:  C:\0PLAN\SP8_HENU.PRG 

1  *  FILE  NAME:  SP8  HENU.PRG 

2  *  BY;  D.  HcQuaide 

3  *  DATE;  March  24,  1992 

4  *  DE3C: 

5  *  CALLED  BY; 

6  *  DATA  FILES: 

7  *  SP8_HENU.prg 

8 

9  close  all 

10  set  talk  off 

11  set  status  off 


I  C. 

13 

14 

15 

16 

17 

18  r- 

19 

20 
21 
22 
CJ 

24 

25 

26 

27 

28  <: 

29 

30 

T1 

^  I 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

/  n 
HC 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54  L 

55 

56  <: 

57 

58 

59 

60 
61 


acu  aaicby  ui i 

set  color  to  gr/  ,w/r, 
clear 

set  procedure  to  SP8_HENU 


-do  while  .T. 

set  color  to  gr 
clear 

store  *  '  to  Choice 
do  nEMli_1 

8  15,  38  get  Choice  picture  M' 
read 

rif  readkeyO  =  12 

set  color  to  w/b 
:<===<===return 
I  ondif 


do  case 
case  Choice  = 


set  procedure 

to 

do  SP8_H1 

set  procedure 

to 

SP8_ 

_HENU 

:ase  Choice  =  '2' 

set  procedure 

to 

do  SP8_H2 

set  procedure 

to 

SP8_ 

MENU 

:ase  Choice  =  '3' 

set  procedure 

to 

do  SP8_H3 

set  procedure 

to 

SP8 

MENU 

lase  Choice  =  '4' 

set  procedure 

to 

do  SP8_H4 

set  procedure 

to 

SP8_ 

MENU 

'  enocase 
inddo 


Teturn 


PROCEDURE  HENUJ.prg 

Tav^  llain  Uatmi 


rea<i  Main  fAantJ 

^iecUorr 


52  ******************************** 

63 

64  PRX  MENU  1 

65 

66  set  color  to  gr+/b 

67  a  2,  13  to  16,  54  double 

68  a  2,  25  SAY  "  INTEGRATED  PLANNING  " 

69  set  color  to  w+/r.w/r 

70  a  3,  14  SAY  "  '  « 

71  a  4,  14  SAY  "  1:  NEW  MODEL  GENERATION  » 

c  Af.  e*v  II 
OP  j  f  «ani 

73  a  6,  14  SAY  '• 


2:  PROJECT  ANALYSIS 


SP8_MENU.PRG  Formatted  by  dANALYST  V7.3a  March  24,  1992  9:45  AM  Page  2 


74 

a  7,  14  SAY  '• 

II 

75 

a  8,  14  SAY  '■  3:  BASELINE  SCHEDULE  GENERATION 

II 

76 

a  9,  14  SAY  " 

II 

77 

a  10,  14  SAY  •'  4:  PRODUCTION  SCHEDULE  UPDATE 

II 

78 

a  11,  14  SAY  " 

II 

79 

a  12,  14  SAY  '■ 

II 

80 

a  13,  14  SAY  " 

II 

81 

a  14,  14  SAY  " 

II 

82 

a  15,  14  SAY  "  Enter  Choice  :  : 

11 

83 

set  color  to  gr 

84 

85 

a  17,  23  say  'Press  "Esc"  to  return' 

86  <= 

87 

88 

89 

==return 

90 

**•****•**•*««*****•***•••**•«•• 

91 

*  PROCEDURE  HENUJA.prg  * 

92 

*  Text  for  Main  Menu  * 

93 

*  Shaded  to  allow  for  Overlay  * 

94 

95 

***•******•«*•*•****«**•******** 

96 

97 

PROC  MENUJA 

98 

set  color  to  /b 

99 

a  2,  13  to  16,  54  double 

100 

a  2,  25  SAY  "  INTEGRATED  PLANNING  " 

101 

set  color  to  w/bg 

102 

a  3,  14  SAY  " 

II 

103 

a  4,  14  SAY  "  1:  NEW  MODEL  GENERATION 

II 

104 

a  5,  14  SAY  " 

It 

105 

a  6,  14  SAY  "  2:  PROJECT  INTEGRATION 

11 

106 

a  7,  14  SAY  " 

11 

107 

a  8,  14  SAY  "  3:  BASELINE  SCHEDULE  GENERATION 

11 

108 

a  9,  14  SAY  " 

11 

109 

a  10,  14  SAY  "  4:  PRODUCTION  SCHEDULE  UPDATE 

II 

110 

a  11,  14  SAY  " 

II 

111 

a  12,  14  SAY  " 

11 

112 

a  13,  14  SAY  " 

11 

113 

a  14,  14  SAY  " 

II 

114 

a  15,  14  SAY  "  Enter  Choice  :  : 

11 

115 

set  color  to  gr 

116 

117 

a  17,  23  say  'Press  "Esc"  to  return' 

118  <=: 
119 

:=return 

120 

‘Formatted  by:  dANALYST  Ver.  7.3a  on  March  24,  1992 

at  9:45  AM, 

dANALYST 

found  0  error(s),  0  warningCs),  120  lines. 

SP8_H1.PRG  Formatted  by  dANALYST  V7.3a  March  24,  1992  9:45  AH 
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INPUT 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 


FILE:  C:\0PLAN\SP8_H1, PRO 

*  FILE  NAME:  SP8_H1.PRG 

*  BY:  D.  HcQuaide 

*  DATE:  March  24,  1992 

*  DESC: 

*  CALLED  BY: 

*  DATA  FILES: 

»  SP8_H1.prg 

set  procedure  to  SP8_H1 


while  .T. 
set  color  to  gr 
a  3,  15  clear 
store  *  '  to  ChoiceMI 
do  HEHUJ 

a  16,  40  get  ChoiceMI  picture  M' 
read 

-if  readkeyO  =  12 
<===<===<===return 
— endif 


do  HEHUJ  A 
-do  case 

-case  ChoiceMI  =  ' 1 ' 
set  procedure  to 
do  HOOEL_B 
close  all 

set  procedure  to  SP8J<1 


-endcase 


-enddo 


<===return 


PROCEDURE  HENUJ.prg 
Text  for  Hew  Model  Generation  Menu 


PROC  HENU_1 

set  color  to  gr+/b 
a  3,  15  to  17,  56  double 
a  3,  26  SAY  "  NEW  MODEL  GENERATION 
set  color  to  w+/r 
a  4,  16  SAY 
a  5,  16  SAY 
a  6,  16  SAY 
a  7,  16  SAY 
a  8,  16  SAY 
a  9,  16  SAY 
a  10,  16  SAY 
a  11,  16  SAY 
a  12,  16  SAY 
a  13,  16  SAY 
a  14,  16  SAY 
a  15,  16  SAY 
a  16,  16  SAY 


1:  MODEL  BUILDER  PROGRAM 


Enter  Choice  :  : 


set  color  to  gr 

a  18,  25  say  'Press  "Esc"  to  return' 


<===return 


PROCEDURE  HENUJA.prg  * 

Text  for  Mew  Model  Generation  Menu  * 
Shaded  to  allow  for  Overlay  * 


read  Kcw  Model  Generation 

Menu  -aelectton 
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74 

75  PROC  MENU  1A 

76 

77  set  color  to  /b 

78  a  3,  15  to  17,  56  double 

79  a  3,  26  SAY  "  HEW  MODEL  GENERATION  " 

80  set  color  to  w/bg 

81  a  4,  16  SAY  "  >■ 

82  a  5,  16  SAY  "  1:  MODEL  BUILDER  PROGRAM  " 

83  a  6,  16  SAY  "  » 

84  a  7,  16  SAY  "  >1 

85  a  8,  16  SAY  "  •< 

86  a  9,  16  SAY  "  ■> 

87  a  10,  16  SAY  "  II 

88  a  11,  16  SAY  "  II 

89  a  12,  16  SAY  "  II 

90  a  13,  16  SAY  ■■  II 

91  a  14,  16  SAY  "  II 

92  a  15,  16  SAY  "  II 

93  a  16,  16  SAY  "  Enter  Choice  :  :  " 

94  set  color  to  gr 

95  a  18,  25  say  ‘Press  "Esc"  to  return' 

96 

97 

98  <===return 

99 
100 
101 
102 

103 

104 

105 

106  *Fonnatted  by:  dANALYST  Ver.  7.3a  on  March  24,  1992  at  9:45  AM. 
dANALYST  found  0  error(s),  0  warning(s),  106  lines. 
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INPUT 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 


FILE:  C:\0PLAN\SP8_H2.PRG 

*  FILE  NAME:  SP8_H2.PRG 

*  BY:  D.  Hctluaide 

*  DATE:  March  24,  1992 

*  DESC: 

*  CALLED  BY: 

*  DATA  FILES: 

*  SP8_H2.prg 

set  procedure  to  SP8_H2 


-do  while  .T. 

set  color  to  gr 
a  3,  15  clear 
store  *  '  to  ChoiceH2 
do  HEHUJ 

a  16,  40  get  Cho{ceM2  picture  '!' 
read 

I - if  readIceyO  =  12 

<===<===<==return 
I - endif 


do  MENU_1A 
case 

ase  ChoiceH2  =  '1' 
set  procedure  to 
do  SP8_0ATA 
close  all 

set  procedure  to  SP8_H2 


I— endcase 
I - enddo 

***•*• 

<===retum 


PROCEDURE  HEHUJ. prg  * 

Text  for  Project  Analysis  Menu  * 


PROC  MENU  1 


set  color 
a  3,  15 
a  3,  28 
set  color 
a  4,  16 

5, 

6, 

1, 

8, 

9, 

10, 

11, 

12, 

13, 

K, 

15, 

16, 
set  color 
a  18,  25 


16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 


DATA  GENERATION  PROGRAM 

*  Capacity  Requirements. 

*  Long  Range  Hanning 
Requirements. 


to  gr+/b 

to  17,  56  double 
SAY  "  PROJECT  ANALYSIS  " 
to  trt-/r 
SAY  " 

SAY  "  1 : 

SAY  " 

SAY  " 

SAY  " 

SAY  " 

SAY  " 

SAY  " 

SAY  " 

SAY  " 

SAY  " 

SAY  " 

SAY  " 
to  gr 

say  'Press  "Esc"  to  return* 


Enter  Choice  : 


<===return 


*  PROCEDURE  HENUJA.prg 

*  Text  for  Project  Analysis  Menu 

*  Shaded  to  allow  for  Overlay 


read  Prcject  Anali|s-is 

Heiftu  selecticn 
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74 

IMHHH 

i****i,**i 

75 

76 

PRX  HENU 

JA 

77 

78 

set  color 

to  /b 

79 

a  3, 

15 

to  17, 

56  double 

80 

a  3, 

28 

SAY  "  PROJECT  ANALYSIS  " 

81 

set  color 

to  w/bg 

82 

a  4, 

16 

SAY  " 

II 

83 

a  5, 

16 

SAY  " 

1:  DATA  GENERATION  PROGRAH 

It 

84 

a  6, 

16 

SAY  " 

*  Capacity  Requirements. 

11 

85 

a  7, 

16 

SAY  " 

*  Long  Range  Hanning 

II 

86 

a  8, 

16 

SAY  " 

Requirements. 

11 

87 

a  9, 

16 

SAY  “ 

II 

88 

a  10, 

16 

SAY  " 

II 

89 

a  11, 

16 

SAY  " 

II 

90 

a  12, 

16 

SAY  " 

II 

91 

a  13, 

16 

SAY  " 

tl 

92 

a  14, 

16 

SAY  " 

II 

93 

a  15, 

16 

SAY  '■ 

II 

94 

a  16, 

16 

SAY  " 

Enter  Choice  :  : 

II 

95 

set  color 

to  gr 

96 

a  18, 

25 

say  'Press  "Esc"  to  return* 

97 

98 

99  <== 

—return 

100 

101 

102 

103 

104 

105 

106 

•Formatted  by:  dANALYST  Ver.  7.3a  on  Harch  24,  1992  at  9:45  AH. 

dANALYST 

found  0  error<s),  0  warningCs),  106  lines. 
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INPUT  FILE:  C:\0PLAN\SP8_H3.PRG 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

*  FILE  NAME:  SP8_H3.PRG 

*  BY:  D.  HcQuaide 

*  DATE:  March  24,  1992 

*  OESC: 

*  CALLED  BY: 

*  DATA  FILES: 

*  SP8_H3.prg 

set  procedure  to  SP8_H3 

11 

12 

—do  while  .T. 

13 

set  color  to  gr 

14 

S  3,  15  clear 

15 

store  *  '  to  ChoiceHS 

16 

do  MENU  1 

17 

a  16,  40  get  ChoiceMS  picture  '!' 

18 

read 

19 

I - if  readkeyO  =  12 

20  <===« 

==s<===return 

21 

1 - endif 

22 

23 

do  MENU  1A 

24 

25 

- case  ChoiceM3  =  '1' 

26 

set  procedure  to 

27 

set  color  to  gr+/b 

28 

a  4,17  to  19,73  double 

29 

a  4,34  say  •  MASTER  SCHEDULES  MENU  • 

30 

set  color  to  grt/r 

31 

a  5,18  say  '  ■ 

32 

a  6,18  say  >  MASTER  SCHEDULES:  ■ 

33 

a  7,18  say  *  ' 

34 

set  color  to  w+/r 

35 

a  8,18  say  •  The  Master  Schedule  Generation  Program  uses  the  ‘ 

36 

a  9,18  say  '  activity  file  of  the  Baseline  Production  Model  (after  ‘ 

37 

a  10,18  say  •  processing  by  the  project  management  software).  The  ■ 

38 

a  11,18  say  '  program  extracts  the  dates  necessary  to  generate  the  ' 

39 

a  12,18  say  ‘  various  master  schedules  used  throughout  the  yard.  ' 

40 

a  13,18  say  *  This  module  of  the  Integrated  Production  Planning  ‘ 

41 

a  14,18  say  '  System  is  dependent  upon  the  format  by  which  a  ' 

42 

a  15,18  say  ‘  specific  yard  produces  its  Master  ProAjction  Schedules* 

43 

a  16,18  say  •  Therefore,  the  details  of  this  system  module  have  ' 

44 

a  17,18  say  *  not  been  developed  for  this  presentation.  ' 

45 

a  18,18  say  *  • 

46 

set  color  to  gr 

47 

a  20,33  say  •  • 

48 

wait 

49 

a  20,0  clear 

50 

set  procedure  to  SP8  H3 

51 

52 

- case  ChoiceM3  =  ‘2* 

53 

set  procedure  to 

54 

do  SP8  GNT 

55 

close  all 

56 

set  procedure  to  SP8  H3 

57 

58 

- case  ChoiceM3  =  *3* 

59 

set  procedure  to 

60 

set  color  to  grt/b 

61 

a  4,17  to  19,73  double 

62 

a  4,35  say  •  SCHEDULE  UPLOAD  MENU  ■ 

63 

set  color  to  gr+/r 

64 

a  5,18  say  *  * 

65 

a  6,18  say  •  SCHEDULE  UPLOAD  FILE:  ■ 

66 

a  7,18  say  *  • 

67 

set  color  to  w+/r 

68 

a  8,18  say  *  The  Master  Schedule  Upload  File  Generation  Program  ' 

69 

a  9,18  say  *  converts  the  Integrated  Production  Planning  System  ' 

70 

a  10,18  say  '  data  to  a  form  so  that  it  may  be  uploaded  into  the  * 

71 

a  11,18  say  *  yards  Cost  Schedule  Control  System  (CSCS)  databas*.  ' 

72 

a  12,18  say  *  This  allows  the  CSCS  to  be  rapidly  and  accurately  ' 

73 

a  13,18  say  *  updated  when  a  change  occurs  to  a  master  schedule.  ' 

reaci  Eisc  L'fle.  (jefletwiiort 
fienu  5elec,ticft 
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74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 


a  14,18  say 
a  15,18  say 
a  16,18  say 
a  17,18  say 
a  18,18  say 
set  color  to  gr 
a  20,33  say  '  ' 
wait 

a  20,0  clear 

set  procedure  to  SP8_H3 


This  module  of  the  Integrated  Production  Planning 
System  is  dependent  the  specifics  of  the  yards 
CSCS.  Therefore,  the  details  of  this  system  module 
have  not  been  developed  for  this  presentation. 


' - endcase 

enddo 


<==return 


*  PROCEDURE  MENUJ.prg 

♦  Text  for  Base  Line  Generation  Menu 


PROC  MENU  1 


set  color  to  gr+/b 


99 

a 

3,  15 

to  17, 

56  double 

100 

a 

3,  26 

SAY  "  BASE  LINE  GENERATION  " 

101 

set  color 

to  w+/r 

102 

a 

4,  16 

SAY  " 

II 

103 

a 

5,  16 

SAY  " 

1:  MASTER  SCHEDULES 

II 

104 

a 

6,  16 

SAY  " 

(Tabular  Form) 

H 

105 

a 

7,  16 

SAY  " 

It 

106 

a 

8,  16 

SAY  '• 

2:  MASTER  SCHEDULES 

II 

107 

a 

9,  16 

SAY  " 

(Gantt  Chart  Form) 

II 

108 

a 

10,  16 

SAY  " 

It 

109 

a 

11,  16 

SAY  " 

3:  SCHEDULE  UPLOAD  PROGRAM 

II 

110 

a 

12,  16 

SAY  " 

II 

111 

a 

13,  16 

SAY  " 

It 

112 

a 

14,  16 

SAY  " 

It 

113 

a 

15,  16 

SAY  " 

II 

114 

a 

16,  16 

SAY  " 

Enter  Choice  :  : 

II 

115 

set  color 

to  gr 

116 

a 

18,  25 

say  'Press  "Esc"  to  return' 

117 

118 

119 

<===return 

120 

121 

122 

123 

124 

* 

PROCEDURE 

MENU  lA.prg  * 

125 

* 

Text  for  Base  Line  Generation  Menu  * 

126 

127 

* 

Shaded  to  allow  for  Overlay  • 

128 

129 

PROC  MENU 

JA 

130 

131 

set  color 

to  /b 

132 

a 

3,  15 

to  17, 

56  double 

133 

a 

3,  26 

SAY  "  BASE  LINE  GENERATION  " 

134 

set  color 

to  w/bg 

135 

a 

4,  16 

SAY  " 

It 

136 

a 

5,  16 

SAY  " 

1:  MASTER  SCHEDULES 

II 

137 

a 

6,  16 

SAY  " 

(Tabular  Form) 

II 

138 

a 

7,  16 

SAY  " 

II 

139 

a 

8,  16 

SAY  " 

2:  MASTER  SCHEDULES 

II 

140 

a 

9,  16 

SAY  " 

(Gantt  Chart  Form) 

II 

141 

a 

10,  16 

SAY  " 

II 

142 

a 

11,  16 

SAY  " 

3:  SCHEDULE  UPLOAD  PROGRAM 

II 

143 

a 

12,  16 

SAY  " 

11 

144 

a 

13,  16 

SAY  " 

11 

145 

a 

14,  16 

SAY  " 

II 

146 

a 

15,  16 

SAY  " 

11 

147 

a 

16,  16 

SAY  " 

Enter  Choice  :  : 

tl 

148 

set  color  to  gr 
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149  a  18,  25  say  ‘Press  “Esc"  to  return* 

150 

151 

152  <===return 

153 

154 

155 

156 

157 

158 

159 

160 

161  *Formatted  by:  dAHAUST  Ver.  7.3a  on  March  24,  1992  at  9:46  AH. 
dANAUYST  found  0  error(s),  0  warmng(s),  161  lines. 
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INPUT  FILE:  C:\0PLAM\SP8_H4.PRG 

1  *  FILE  NAME:  SP8  M4.PRG 

2  *  BY:  D.  McQuaide 

3  *  DATE:  March  24,  1992 

4  *  DESC: 

5  *  CALLED  BY: 

6  *  DATA  FILES: 

7  *  SP8  M4.prg 

8 

9  set  procedure  to  SP8_H4 


10 

11 

IP 

I— uh  i  1  A  T 

lb 

13 

WIl  1  ic  •  1  • 

set  color  to  gr 

14 

a  3,  15  clear 

15 

store  *  *  to  ChoiceM4 

16 

do  MENUJ 

17 

a  16,  40  get  ChoiceM4  picture  '!' 

18 

read 

19 

1 - if  readkeyO  =  12 

20 

CSSS 

e=ss<=sreturn 

21 

■— endif 

22 

23 

do  MENU  1A 

24 

—do  case 

25 

- case  ChoiceM4  =  '1* 

26 

set  procedure  to 

27 

set  color  to  gr+/b 

28 

a  4,17  to  18,73  double 

29 

a  4,33  say  •  PRODUCTION  SCHEDULE  MENU  ■ 

30 

set  color  to  gr+/r 

31 

a  5,18  say  '  ' 

32 

a  6,18  say  ■  PRODUCTION  SCHEDULE:  • 

33 

a  7,18  say  '  ' 

34 

set  color  to  M+/r 

35 

a  8,18  say  '  The  Production  Schedule  Generation  Program  uses  the  ' 

36 

a  9,18  say  ‘  activity  file  of  the  Production  Update  Model  (after  ' 

37 

a  10,18  say  ‘  processing  by  the  project  management  software).  The  ' 

38 

a  11,18  say  '  program  takes  the  activity  file  and  extracts  the  ' 

39 

a  12,18  say  '  dates  necessary  to  generate  the  updataed  production  ' 

40 

a  13,18  say  '  schedules  in  both  graphical  and  tabular  form.  These  ' 

41 

a  14,18  say  '  schedules  show  planned  vs.  actual  and  projected  ' 

42 

a  15,18  say  '  progress.  Each  Shipyard  should  create  this  module  to  ' 

43 

a  16,18  say  ‘  meet  thier  own  needs.  ' 

44 

a  17,18  say  •  ' 

45 

set  color  to  gr 

46 

a  19,33  say  ■  ' 

47 

wait 

48 

a  19,0  clear 

49 

set  procedure  to  SP8_H4 

50 

51 

- case  ChoiceM4  =  ‘2* 

52 

set  procedure  to 

53 

set  color  to  gr+/b 

54 

a  4,17  to  18,73  double 

55 

a  4,33  say  ‘  SHORT  TERM  MANPOWER  MENU  ■ 

56 

set  color  to  gr+/r 

57 

a  5,18  say  ‘  < 

58 

a  6,18  say  ■  SHORT  TERM  MANPOWER:  • 

59 

a  7,18  say  •  ■ 

60 

set  color  to  w+/r 

61 

a  8,18  say  *  The  Short  Term  Hanning  Requirement  Generation  Program  ' 

62 

a  9,18  say  '  is  similar  to  the  Long  Range  Manning  Requirement  ' 

63 

a  10,18  say  *  Generation  Program.  However,  the  short  term  ' 

64 

a  11,18  say  ‘  requirements  are  generated  from  the  resource  ' 

65 

a  12,18  say  '  aggregation  file  of  the  Production  Update  Model.  ' 

66 

a  13,18  say  '  The  Long  Range  Hanning  Program  can  be  modified  to  ' 

67 

a  14,18  say  '  show  short  term  projections.  ' 

68 

a  15,18  say  '  ' 

69 

a  16,18  say  ■  ■ 

70 

a  17,18  say  ■  • 

71 

set  color  to  gr 

72 

a  19,33  say  •  ■ 

73 

wait 

recul  {rcclycticn  Sctiedolc 

IViu  5elec.ticv\ 


SP8_H4.PRG  Formatted  by  dAHALYST  V7.3a  March  24,  1992  9:46  AH  Page  2 


a  19,0  clear 

set  procedure  to  SP8_H4 

ase  ChoiceH4  =  '3' 
set  procedure  to 
do  SP8_LAY 
close  all 

set  procedure  to  SP8_H4 
indcase 


87 

88 

89 

90 

91 

92 

93 


•  PROCEDURE  HENUJ.prg  * 

*  Text  for  Production  Schedule  Update  Menu  * 


94 

PROC  MENU 

_1 

95 

96 

set  color 

to  gr+/b 

97 

a  3,  15 

to  17, 

56  double 

98 

a  3,  23 

SAY  "  PROOUCTIOH  SCHEDULE  UPDATE  ■' 

99 

set  color 

to 

100 

a  4,  16 

SAY  " 

101 

a  5,  16 

SAY  " 

1:  PRODUCTION  SCHEDULES 

102 

a  6,  16 

SAY  " 

103 

a  7,  16 

SAY  " 

2:  SHORT  TERM  HANNING 

104 

a  8,  16 

SAY  '■ 

105 

a  9,  16 

SAY  " 

3:  LAYDOWN  SCHEDULES 

106 

a  10,  16 

SAY  " 

107 

a  11,  16 

SAY  " 

108 

a  12,  16 

SAY  '• 

109 

a  13,  16 

SAY  " 

110 

a  14,  16 

SAY  '• 

111 

a  15,  16 

SAY  " 

112 

a  16,  16 

SAY  " 

Enter  Choice  :  : 

113 

set  color 

to  gr 

114 

a  18,  25 

say  ‘Press  "Esc"  to  return' 

115 

116 

117  <= 

118 

119 

120 

121 

==return 

********* 

122 

* 

PROCEDURE  MENU  lA.prg  * 

123 

*  Text  for  Production  Schedule  Update  Menu  * 

124 

125 

•  Shaded  to  allow  for  Overlay  * 

126 

127 

PROC  MENU 

-lA 

128 

129 

set  color 

to  /b 

130 

a  3,  15 

to  17, 

56  double 

131 

a  3,  23 

SAY  "  PRODUCTION  SCHEDULE  UPDATE  " 

132 

set  color 

to  w/bg 

133 

a  4,  16 

SAY  " 

134 

a  5,  16 

SAY  " 

1:  PRODUCTION  SCHEDULES 

135 

a  6,  16 

SAY  " 

136 

a  7,  16 

SAY  " 

2:  SHORT  TERM  HANNING 

137 

a  8,  16 

SAY  " 

138 

a  9,  16 

SAY  " 

3:  LAYDOWN  SCHEDULES 

139 

a  10,  16 

SAY  " 

140 

a  11,  16 

SAY  " 

141 

a  12,  16 

SAY  " 

142 

a  13,  16 

SAY  " 

143 

a  14,  16 

SAY  " 

144 

a  15,  16 

SAY  " 

145 

a  16,  16 

SAY  " 

Enter  Choice  :  : 

146 

set  color 

to  gr 

147 

a  18,  25 

say  'Press  "Esc"  to  return' 

148 

11 

II 

II 


II 
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150  <==return 
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156  *Fonnatted  by:  dANALYST  Ver.  7.3a  on  March  24,  1992  at  9:46  AH. 
dANALYST  found  0  error<s),  0  warningfs},  156  lines. 
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22 

23 

24 
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FILE:  C:\OPLAH\HOOEL_B.PRG 

*  Program:  HOOEL_B.prg 

*  Programmed  by:  O.J.HcQuaide  &  R.J.Neunann 

*  Developed:  07/22/91 

*  Purpose: 


set  procedure  to  HOOEL_B 


*  Input  Menu  * 


store  *  '  to  tContract 

store  space(30)  to  tProject 
store  space<30)  to  tBuild  DB 
do  MOOEL_H 

a  7,46  get  tContract  picture 
-do  while  .T. 

a  9,23  get  tProject  picture  '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' 
read 

I - if  readkeyO  =  12 

=<===<===return 
fif 

store  '  ‘  to  tLoop 
store  trim(tProject)+‘ .act'  to  tACT 
store  trim<tProject)+'.rel'  to  tREL 
store  trim(tProject)+' .res'  to  tRES 
set  color  to  gr+/r 


-if  .not.  fileltACT) 
a  14,  18  SAY  ' 
store  'Y'  to  tLoop 
-endif 

-if  .not.  file(tREL) 
a  15,  18  SAY  ' 
store  'Y'  to  tLoop 
-endif 


-if  .not.  file(tRES) 
a  16,  18  SAY  ' 
store  'Y'  to  tLoop 


Activity  File  MOT  Foundl 


Relation  File  MOT  Found! 


Resource  File  MOT  Foundl 


if  tLoop  =  'Y' 

<===<===<=== I oop 
I  I  else 

<===<==s<=s=exit 

I  I - endif 

I - enddo 

set  color  to  wt/r 

a  14,  18  SAY  '  < 

a  15,  18  SAY  '  < 

a  16,  18  SAY  '  < 

while  .T. 

a  12,23  get  tBuild_0B  picture  ' ! ! ! !  1 1 1  ■ !  Ill ! ! ! I! ! I ! ! I !  I ! ! ! ! ! ! ' 
read 

—if  readkeyO  =  12 
<===<===<==return 
I - endif 

store  trim<tBuild_DB)+'.dbf'  to  tBUILD 
set  color  to  gr+/r 
I - if  .not.  file(tBUILD) 

I  a  14,  18  SAY  '  Build  Data  File  MOT  Found!  ' 

<===<===<=== I oop 

I  I - els'* 

<===<===<===exi t 
I - endif 


set  color  to  H*/r 
a  14,  18  SAY  ' 


readiivi  nowe  cf  mociel  o/id 

'jertVie-s  all  files  exist 


reQiAiiiq  cuicl  VetifuiAa  Uie 


i'Vj  Qiici  VetUui 
BUIlD  claia  Tile 
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110 
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115 

116 

117 

118 

119 

120 
121 
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123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 


*  Set-Up  Data  Bases  * 
set  color  to  gr+*/r 
a  14,  25  SAY 
a  14,  49  SAY  '»■ 
set  color  to  gr+/r 

a  14,  18  SAY  '  Setting  Up  Data  Bases 


select  D 

use  &tRES  alias  RES 
zap 

select  C 

use  &tREL  alias  REL 
zap 

select  B 

use  &tACT  alias  ACT 
zap 

select  A 

use  &tBUILD  index  GRD_BLK  alias  GUILD 
reindex 


3el  up  rec|oirect 
(jiala  baseii 


set  color  to  gr+/r 
a  14,  18  SAY  ■ 


*1HH»««**«***«1 

*  Start  Hodel 

Building  Process  » 

go  top 

-do  while  .not 

.  eofO 

set  color  to  gr+/r 

a  14,  18 

SAY  '  Add  Block 

1 

a  14,  30 

SAY  BUILD->Block 

a  15,  18 

SAY  ' 

Activity  Records  ' 

a  16,  18 

SAY  ' 

Relation  Records  ' 

a  17,  18 

SAY  ' 

Resource  Records  ' 

dlisplty^^  HtW  BotU. 

prcces'a  to  ScreeTL 


- case  BUILD->STRATEGY  =  'STD' 


set  color  to  gr+/r 
a  14,  35  SAY  'Standard  Strategy 
a  14,  30  SAY  BUIL0->Block 

*  Adding  ACTIVITY  Records  * 
do  ACT1 

*  Adding  RELATION  Records  * 
do  REL1 

*  Adding  RESOURCE  Records  * 
do  RES1 


- case  BUILD->STRATEGY  =  'GRAND1' 

***  Grand  Blocking  (Post  Blast)  *** 
set  color  to  gr+/r 

a  14,  35  SAY  'Grand  Block  #1  Strat.  ' 
select  BUILD 

store  recnoO  to  (Record 
store  BUILD->GRAND  to  (Grand 

- do  while  BUIL0->GRAND  =  tGrand  .and.  BUILD->BLOCK  <  '500' 

set  color  to  gr+/r 
a  14,  30  SAY  BUILD->Block 

*  Adding  ACTIVITY  Records  * 
do  ACT1 

*  Adding  RELATION  Records  * 
do  REL1 

*  Adding  RESOURCE  Records  * 
do  RES1 

select  BUILD 
skip 

a  15,  30  SAY  '  ' 

a  16,  30  SAY  '  • 

a  17,  30  SAY  '  ' 
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224 

a  7,  33 

say  triaKtProject) 

225 

store  *  ' 

to  tP  Lanes 

226 

set  color 

to  gr+/r 

227 

a  8,  18 

SAY  ' 

228 

a  9,  18 

SAY  ' 

Has  successfully  been  created. 

229 

a  10,  18 

SAY  • 

230 

set  color 

to  wt/r 

231 

a  11,  18 

SAY  ' 

Do  you  want  to  add  any  Process 

232 

a  12,  18 

SAY  ■ 

Lane  relationship  via  a  File. 

233 

a  13,  18 

SAY  • 

(Y/N)  :  : 

234 

a  14,  18 

SAY  • 

235 

a  15,  18 

SAY  ' 

236 

a  16,  18 

SAY  ' 

237 

a  17,  18 

SAY  ■ 

238 

a  13,  30 

Get  tP  Lanes  picture  '!' 

239 

read 

240  r 

— if  readkeyO  =  12 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 


<==<=return 
I - endif 


-if 


tP_Lanes  =  'Y' 
set  color  to  i*«-/r 

a  9,  18  SAY  '  1 

a  11,  18  SAY  '  ■ 

a  12,  18  SAY  '  > 

a  13,  18  SAY  "  Enter  Process  Lane's  File  Name  w/Path  " 

-do  while  .T. 

a  14,23  get  tP_Lane  picture  '!!!!!!!!!!!!!!!!!■!!!!!!!!!!!!' 
read 

I - if  readkeyO  =  12 

s<zss<sssretum 
' - endif 

store  trimftP  Lane)+‘.dbf'  to  dbP  LANE 
•if  file(dbP_LANE) 

set  color  to  w*/r 
select  REL 

a  16,  18  SAY  '  Adding  Process  Lane  Relations  ' 
append  from  4dbP_LANE‘ 

a  16,  18  SAY  ■  I 

<=n<s9nexi  t 
I - else 

set  color  to  w*-/r 
a  16,  18  SAY  ■ 

:<=xz<zxzloop 

I - endif 

-enddo 


Can  Not  Find  File 


set  color  to  w<-/r 


271 

272 

a  16, 

- endif 

18  SAY  • 

1 

Cfi 

274 

store  '  ' 

to  tCodes 

275 

set  color 

to  w+/r 

276 

a  7,  18 

say  ‘ 

1 

277 

a  8,  18 

say  '  Do  you  to  Create  New  Code  Files 

1 

278 

a  9,  18 

say  ‘  (  es/  0}  :  : 

1 

279 

a  10,  18 

say  • 

1 

280 

a  11,  18 

say  ‘ 

1 

281 

a  12,  18 

say  ' 

1 

282 

a  13,  18 

say  * 

1 

283 

a  14,  18 

say  ' 

1 

284 

set  color 

to  gr*-/r 

285 

a  9,  31 

say  *Y' 

286 

a  9,  35 

say  'N' 

287 

a  9,  40 

get  tCodes  picture  ■!' 

288 

read 

£07 

290 

- if  tCodes 

=  'Y' 

291 

set  color  to  /w 

292 

a  12, 

18  say  '  Setting  Up  Indexes 

1 

293 

294 

295 

296 

297 

298 


set  unique  on 
select  ACT 

a  13,  18  say  '  Cl  for  Code  Field  #1  (W8S) 
index  on  Cl  to  Cl 

a  13,  18  say  *  C4  for  Code  Field  #4  (Grand  Blk  Code) 
index  on  C4  to  C4 


project  has  been  eraoieol 
ewA  aste  if  ijcu  U/UW  "{d  aelcl 
pr«ces5  lanes  to  tWt  f>io(icl 


qds  PROCESS  LA^)£.  Oak.  Rk  one/ 
Cjecites  pweess  Une  rt^bonships 


asks  if  ujish  k  ad4  cede 
fields  to  tke  iviodtl  flod  sets  up 
datci  file^ 
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165 
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197 
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200 
201 
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203 

204 

205 

206 

207 

208 

209 

210 
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212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


set  color  to  gr+/r 
a  14,  30  SAY  BUaD->Block 

*  Adding  ACTIVITY  Records  * 
do  ACTG1 

*  Adding  RELATION  Records  * 
do  RELG1 

*  Adding  RESOURCE  Records  * 
do  RESG1 

- case  BUILD->STRATEGY  =  'GRAND2'  .or.  BUILD->STRATEGY  =  'GRAND3'  .or.  BUILD->STRATEGY  =  'GRAND4' 

»•*  Grand  Blocking  (OH  -  ASSY)  *•* 
set  color  to  gr+/r 

a  14,  35  SAY  'Grand  Block  #2  Strat.  ' 
a  14,  30  SAY  BUILD->Block 


select  BUILD 

store  recnoO  to  tRecord 
store  BUIL0->GRAN0  to  tGrand 

^  while  BUILO->GRAND  =  tGrand  .and.  BUILD->BLOCI(  <  '500' 
set  color  to  gr+/r 
a  14,  30  SAY  BUILD->Block 

•  Adding  ACTIVITY  Records  » 
do  ACT2 

•  Adding  RELATION  Records  * 
do  REL2 

•  Adding  RESOURCE  Records  * 
do  RES2 

select  BUILD 
skip 

a  15,  30  SAY  '  ' 

a  16,  30  SAY  '  ' 

a  17,  30  SAY  '  ' 

-enddo 

set  color  to  gr+/r 
a  14,  30  SAY  BUILD->Block 

*  Adding  ACTIVITY  Records  * 

store  ‘  '  to  tstack  of 

do  ACTG2 

*  Adding  REUTION  Records  * 
do  RELG2 

»  Adding  RESOURCE  Records  * 
do  RESG2 


Cteoiitift  Acimk|,  Rtsccrct, 
and!  RdcdtoosVrip  files  oaorclina 
l(v  Block  BuUci 


- case  BUILD->STRATEGY  =  'SHOP' 


set  color  to  gr+/r 
a  14,  35  SAY  'SHOP  Strategy 
a  14,  30  SAY  BUILD->Block 

*  Adding  ACTIVITY  Records  * 
do  ACT1 

*  Adding  RELATION  Records  * 
do  REL3 

*  Adding  RESOURCE  Records  * 
do  RES1 


set  color  to  gr+/r 

a  14,  35  SAY  'Shop  Block  Strategy  ' 
a  14,  30  SAY  BUIL0->Block 

L— endcase 

set  color  to  M+/r 
a  15,  30  SAY  '  ' 

a  16,  30  SAY  '  ' 

a  17,  30  SAY  ■  ' 

select  BUILD 
skip 

- enddo 

store  space(30)  to  tP_Lane 
set  color  to  w<-/r 
a  5,  18  SAY  ' 

a  6,  18  SAY  ' 

a  7,  18  SAY  '  Project  : 
set  color  to  gr+/r 
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319 
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328 
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330 

331 
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a  13,  18  say  '  ' 

store  'Y'  to  tC1,tC4 
store  space(30)  to  fCode 

a  12,  18  say  ‘  Varify  Re-creating  Code  #1  :  :  ' 

a  12,  50  get  tCI  picture  '!' 

read 

■if  tCI  =  'Y' 

store  'Y'  to  tContinue 

a  13,  18  say  ‘  Enter  Code  File  w/Path  ' 

i— do  while  .T. 

a  14,  24  get  fCode  picture  ■!!!!!!!! M !!!!!!!!!!! M !!!!!!! ■ 
read 

if  readkeyO  =  12 

store  'N'  to  tContinue 
<==<===<==exit 
-endif 

store  trim(fCode)+* .COO*  to  tCode_File 
-if  fileCtCode  File) 


r 


I 

<===<==<===  I  oop 
I  I— endif 

I - enddo 


a  12, 

18 

say  * 

a  13, 

18 

say  * 

a  14, 

18 

say  ' 

a  15, 
=exit 

18 

say  * 

'a  15, 

18 

say  ' 

Can  Not  Find  File 

code  fielcl 

[ms] 


-if  tContinue  =  'Y* 

set  color  to  w«-/r,  /w 

a  12,  18  say  '  Creating  New  Code  1  File 
a  13,  24  say  tCode_File 
select  ACT 
set  index  to  Cl 
select  E 

use  &tCode_File  alias  Code 
zap 

append  blank 
replace  Cl  with  *1* 
replace  C1DESC  with  'Production* 
append  blank 

replace  Cl  with  *1 '-t-tContract 
replace  C1DESC  with  'Contract  "'+tContract-i-"" 

select  ACT 
go  top 

while  .not.  eof<) 
store  substr<C1,3,4)  to  tBlock 
a  15,  18  say  *  For  Block 
a  15,  32  say  tBlock 
select  CODE 
append  blank 

replace  Cl  with  *1*-*-tContract+tBlock 

replace  C10ESC  with  'Contract  "'-•■tContract-F'"  Block  '+tBlock 
select  ACT 

-do  while  substr(C1,3,4)  =  tBlock  .and.  .not.  eof() 

I - if  substr(Cl,7,1)  =  '1* 

a  15,  37  say  'Steel  ' 
select  CODE 
append  blank 

replace  Cl  with  'I'-t-tContract+tBlock-r'l ' 

replace  C1DESC  with  'Contract  "'■••tContract-t-'"  Block  '-t-tBlock-F'  Steel* 
select  ACT 

do  while  substr<C1,7,1)  =  *1* 

—do  case 

—case  Cl  =  'I'-'-tContract-t-tBlock-i-'ll' 
select  CODE 
append  blank 

replace  Cl  with  'I'-^tContract-rtBlock-r'II* 

replace  C1DESC  with  'Contract  "'•FtContract+"'  Block  '+tBlock-r'  Steel  Fab.' 
—case  Cl  =  'I'-t-tContract-t-tBlock-F'IZ' 
select  CODE 
append  blank 

replace  Cl  with  'I'-FtContract-HtBlock-r' 

replace  C1DESC  with  'Contract  '"■'•tContract-'-'"  Block  '■••tBlock'*-'  Steel  Sub-Assy' 


Ttract-F 

•■'12'l 
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- case  Cl  =  *  1 '+tContract+tBlock+*131 ' 

select  CODE 
append  blank 

replace  Cl  with  '1 '+tContract+tBlock+‘13' 

replace  C10ESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+‘  Steel  Asseirbly' 
append  blank  | 

replace  Cl  with  '1'+tContract+tBlock+'131' 

replace  C1DESC  with  'Contract  ‘"+tContract+‘"  Block  ‘+tBlock+'  Steel  Assy  "Flat  Block" 

- case  Cl  =  '1 '+tContract*tBlock+'132' 

select  CODE 
append  blank 

replace  Cl  with  '1 '+tContract+tBlock+'13' 

replace  C1DESC  with  'Contract  "'+tContract+‘"  Block  ‘+tBlock+‘  Steel  Asseinbly' 
append  blank  i 

replace  Cl  with  '1'+tContract+tBlock+'132'l 

replace  C10ESC  with  'Contract  "'+tContract+'"  Block  ‘+tBlock+'  Steel  Assy  "Curved  Bloc 

- case  Cl  =  '1 '+tContract+tBlock+'133' 

select  CODE 
append  blank 

replace  Cl  with  '1'+tContract+tBlock+'13' 

replace  C10ESC  with  'Contract  “'+tContract+‘"  Block  '+tBlock+‘  Steel  AssenPly' 
append  blank  | 

replace  Cl  with  '1'+tContract+tBlock+‘133'l 

replace  C1DESC  with  'Contract  "'+tContract+‘"  Block  '+tBlock+'  Steel  Assy  "Tilt  Jig"' 

- case  Cl  =  '1'+tContract+tBlock+'141' 

select  CODE 
append  blank 

replace  Cl  with  '1'+tContract+tBlock+'14' 

replace  C1DESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+'  Steel  Erection' 
append  blank  | 

replace  Cl  with  '1'+tContract+tBlock+'141'l 

replace  C10ESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+'  Steel  Erection  "On-Boan 
case  Cl  =  '1 '♦tContract+tBlock+'142' 
select  CODE 
append  blank 

replace  Cl  with  '1'+tContract+tBlock+'14' 

replace  C10ESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+'  Steel  Erection' 
apfMnd  blank  I 

replace  Cl  with  '1'+tContract+tBlock+'142'l 

replace  C1DESC  with  'Contract  '"+tContract+'"  Block  '+tBlock+'  Steel  Erection  "Grand  B 
endcase 
select  ACT 
skip 
■enddo 


-endif 


I - if  substr(C1,7,1)  =  '2' 

a  15,  37  say  'Hon-Steel  ' 
select  CODE 
append  blank 

replace  Cl  with  '1'+tContract+tBlock+'2' 

replace  C1DESC  with  'Contract  "•+tContract+'"  Block  ‘+tBlock+'  Hon-Steel' 
select  ACT 

do  while  substr(C1,7,1)  =  '2' 

—do  case 

-case  Cl  =  '1 '+tContract+tBlock+'21 ' 
select  CODE 
append  blank 

replace  Cl  with  '1'+tContract+tBlock+'21' 

replace  C1DESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+‘  Pipe  Shop' 

-case  Cl  =  '1 '+tContract+tBlock+'22' 
select  CODE 
append  blank 

replace  Cl  with  '1 '+tContract+tBlock+'22' 

replace  C10ESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+'  Vent  Shop' 

-case  Cl  =  '1 '+tContract+tBlock+'2311 ' 
select  CODE 
append  blank 

replace  Cl  with  '1 '+tContract+tBlock+'23' 

replace  C1DESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+'  On-Block  0/F' 
append  blank  | 

replace  Cl  with  '1'+tContraet+tBlock+'231' I 

replace  C1DESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+'  Pre-Blast  0/F' 
append  blank  ■] 

replace  Cl  with  '1 '+tContract+tBlock+'2311 1 

replace  C1DESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+'  Pre-Blast  0/F  "Inverted* 
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449 

450 

452 

453 

/e/ 

455 

456 
45/ 

458 

459 

460 
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464 
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4^ 

467 

468 
W9 

470 

/ 

Hf  I 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

487 

^i»» 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 
5M 
507 

eno 

jyjsf 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

sa 


-case  Cl  =  '1 '+tContract+tBlock+'ai2' 
select  CQOE 
append  blsnk 

replace  Cl  with  ‘1 '+tContract+tBlock+‘a'l 

replace  C1DESC  with  'Contract  '"+tContract+‘"  Block  '+tBlock+'  Oo-Block  O/F* 

Kt  onU 

replace  Cl  with  'I'+tContract+tBlock+'ai' 

replace  C10ESC  with  'Contract  "'+tContract+"'  Block  '+tBlock+'  Pre-Blast  O/F' 
append  'blank 

replace  Cl  with  '1 '+tContract+tBlock+'ai2' 

replace  C1DESC  with  'Contract  "'+tContract+"‘  Block  '+tBlock+'  Pre-Blast  O/F  "Up-Right" 
-case  Cl  =  '1'+tContract+tBlock+'a2' 
select  CODE 
append  blank 

replace  Cl  with  '1 '+tContr8Ct+tBlock+'a'* 

replace  C1DESC  with  'Contract  "'+tContract+‘"  Block  '+tBlock+'  On-Block  O/F' 
append  blank 

replace  Cl  with  '1 '+tContract+tBrock+'a2' 

replace  C1DESC  with  'Contract  "'+tContract+'“  Block  '+tBlock+'  Post-Blast  O/F' 

—case  Cl  =  ' 1 '+tCootract+tBlock+'24' 
select  CODE 
append  blank 

camI  ae-A  ri  I  1  I  I  1  O/ t  ' 

I  vow  wi  latvd  I  ’vwMivi  aw  v  •  w  v  ww*v  • 

replace  C1DESC  with  'Contract  "'+tContract+'"  Block  '+tBlock+'  Blast  &  Paint' 

I - endcase 

select  ACT 
skip 
-enddo 


I  endif 
a  15,  37 
I  enddo 


say 


-enooo 

a  12,  18  say  ' 

a  13,  18  say  ' 

a  15,  18  say  ' 

ii-F 


Kidif 


a  12,  18  say  '  Varify  Re-creating  Code  #4  :  :  ' 

3  12  5Q  tG4  f'icturc  *!* 

•if  tC4  =  '?' 

store  space(30)  to  fCode 

ivi 

akWI  C  '  i  '  WU  kWWIlbllHA 

a  13,  IS  say  '  Enter  Code  File  w/Path  ' 

do  while  .T. 

a  14,  24  get  fCode  picture  ‘ i ! i i ! i i i ! I i ! i i i • • i i i i I ■ • ■ i ! i i i ' 
read 

I - if  readkeyO  =  12 

I  store  'N'  to  tcontinue 

<===<===exi t 
I - endif 

store  trimffCodeH'.COO'  to  tCode_File 
—if  file(tCode_File) 

a  12.  18  say  '  ' 

a  13,  18  say  '  ' 

a  14,  18  say  '  ' 

a  15,  13  say  '  ' 

<===<===<=exi  t 

I  I  -else 

II  a  m  1R  cau  ■ 

II  -  — r  ■-  — f 

<===<===<=loop 

I  I - endif 

I  _ _ t-l.^ 


Can  Un^  Cate 


- if  tcontinue  =  'Y' 

set  color  to  w-Zr,  /w 

a  12,  18  say  '  Creating  Temp  File  from  Activity 

select  ACT 

set  index  to  C4 

copy  to  tempcode  field  C4 

select  E 


a  12,  18  say  '  Creating  Hew  Code  4  File 
a  13,  24  say  tCode_File 
use  ttCode_File  alias  Code 
zap 

append  from  tempcode 


builds  Cede  ficid  ^ 
(GrcaiA  Biotk  Code) 
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548 
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550 
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555 

556 

557 
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559 

560 
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562 
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570 
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579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 


replace  all  C40ESC  with  'Activity  Related  to  Grand  Block  ‘+C4 
3  12,  18  say  '  ' 

a  13,  18  say  ‘  ■ 

- endif 

- endif 

set  unique  off 
set  color  to  w«-/r,w/r 
-endif 


<=— return 


*  ACT1  - >  Creates  Activity  File  Data  for  Blocks 

* 

* 


PROC  ACT1 

*  Adding  ACTIVITY  Records  * 
set  color  to  w+Vr 

a  15,  30  SAY  '— >• 
set  color  to  wt/r 
select  ACT 

*  Erection  * 
append  blank 

- if  BUILD->GRAND  =  '  ' 

replace  ID  with  tContract+'7160'-t-8UILD->BL0CK 
replace  OS  with  'Erection  of  Block  '+BUILD->BLOCK 
replace  0  with  20 

replace  TARGS  with  BUIL0->ERECTION 
replace  TARGSTYPE  with  'OH' 
replace  CAL  with  1 

replace  Cl  with  '1 '+tContr8Ct+'0'-»BUILD->BLOCK+'141  • 

replace  C2  with  '1141' 

replace  C3  with  BUILD->BLIC_TYPE 

replace  C4  with  BUILD->GRAND 

- else 

replace  ID  with  tContract+'7150'-fBUILD->BLOCK 

replace  DS  with  'Stack  of  '+BUILD->BLOCIC+'  to  '■fBUILD->GRAND 

replace  D  with  10 

replace  CAL  with  1 

replace  Cl  with  '1 '-►tContract+'0'-t-BUILD->BL0CK+'142' 
replace  C2  with  '1142' 
replace  C3  with  BUILD->BLK_TYPE 
replace  C4  with  BUIL0->GRAN0 
- endif 

*  Post  Blast  0/F  • 
append  blank 

replace  ID  with  tContract+'7254'-'-BUILD->BL0CK 
replace  DS  with  'Post  Blast  0/F  of  Block  '+BUILD->BLOCK 
replace  D  with  BUILD->OF4_0 
replace  CAL  with  1 

replace  Cl  with  '1 '+tContract+'0'+BUILD->BL0CK+'232' 

replace  C2  with  '1232' 

replace  C3  with  BUILD->BLK_TYPE 

replace  C4  with  BUILD->GRAND 

*  Blast  &  Painting  * 
append  blank 

replace  ID  with  tContract+'7253'+BUIL0->8L0CK 

replace  DS  with  'Blast  &  Painting  of  Block  '■^BUILD->BLOCIC 

replace  D  with  BUILD->OF3_D 

replace  CAL  with  1 

replace  Cl  with  '1 '+tContract+'0'+BUILD->BL0CIC+'24' 

replace  C2  with  '124' 

replace  C3  with  BUILD->8LIC  TYPE 

replace  C4  with  BUILD->GRAHD 

*  Pre  Blast  <U-R)  0/F  * 
append  blank 

replace  ID  with  tContract+'7252'+BUILD->BLOCIC 

replace  DS  with  'Pre  Blast  (U-R)  0/F  of  Block  '+BUILD->BLOCK 
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replace  D  with  BUILD->OF2_D 
replace  CAL  uith  1 

replace  Cl  with  '1 '+tContract+*0'+BUILD->BLOCK+'2312* 
replace  C2  with  *12312' 
replace  C3  with  BUILD->BLIC_TYPE 
replace  C4  with  BUILD->GRAND 

*  Pre  Blast  (INV)  0/F  * 
append  blank 

replace  ID  with  tContract+‘7251 '+BUILD->BLOCIC 

replace  DS  with  'Pre  Blast  (INV)  0/F  of  Block  '+BIJILD->BL0CK 

replace  D  with  BUILO->OF1_D 

replace  CAL  with  1 

replace  Cl  with  '1 '+tContract+*0'+BUILD->BLOCK+'2311' 
replace  C2  with  '12311' 
replace  C3  with  BUILD->BLK_TYPE 
replace  C4  with  BUILD->GRAN0 

*  Assembly  * 

if  BUILD->STRATEGY  =  'STD'  .or.  BUILD->STRATEGY  =  'GRAND1' 
append  blank 

replace  ID  with  tContract+'7130'+BUILD->BLQCK 
replace  DS  with  'Assembly  of  Block  '+BUlLD->8LOCI( 
replace  D  with  BUILD->ASSY_D 
replace  CAL  with  1 
—do  case 

-case  BUILD->ASSY_P0S  =  'F' 

replace  Cl  with  '1 '+tContract+'0'+BUILD->BLOCI(+'131 ' 
replace  C2  with  '1131' 

-case  BUILD->ASSY_POS  =  'C 

replace  Cl  with  *1 '+tContract+‘0'+BUILD->BL0CK+'132' 
replace  C2  with  *1132* 

-case  BUILD->ASSY_POS  =  'T' 

replace  Cl  with  *1 '+tContract+'0'+BUILD->BLOCIC+*133' 
replace  C2  with  *1133* 

-endcase 


replace  C3  with  BUILD->BLK_TYPE 
replace  C4  with  BUILD'>GRAND 
• - endif 

•  Sub-Assembly  • 
append  blank 

replace  ID  with  tContract+*7120'+BUILD->BLOCK 
replace  OS  with  'Sub-Assembly  of  Block  '+BUIL0->BLOCIC 
replace  D  with  BUIL0->ASSY_D+20 
replace  CAL  with  1 

replace  Cl  with  *1 '+tContract+'0'+BUILD->BLOCK+*12* 

replace  C2  with  *112* 

replace  C3  with  BUILD->BLK_TYPE 

replace  C4  with  BUILD->GRAND 

*  Fabrication  • 
append  blank 

replace  ID  with  tContract+*7110'+BUILD->BLOCK 
replace  DS  with  ‘Fabrication  of  Block  ‘+BUILD->BLOCK 
replace  0  with  BUILD->ASSY_D+20 
replace  CAL  with  1 

replace  Cl  with  *1 '+tContract+'0'+BUILD->BLOCK+'11 ' 

replace  C2  with  *111' 

replace  C3  uith  BUILD->BLIC  TYPE 

replace  C4  uith  BUILD->GRAKD 

<===return 


ACTG1  --->  Creates  Activity  File  Data  for  Grand  Blocks 


PROC  ACTG1 

*  Adding  ACTIVITY  Records 
set  color  to  w+*/r 

a  15,  30  SAY 
set  color  to  u*/r 
select  ACT 

*  Erection  * 
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674  append  blank 

675  replace  ID  with  tContract+‘7160'+BUlLD->BL0CIC 

676  replace  OS  with  'Erection  of  Grand  Block  ‘+BUILD->BLOCIC 

677  replace  D  with  20 

678  replace  TARGS  with  BUILD->ERECTION 

679  replace  TARGSTYPE  with  'ON' 

680  replace  CAL  with  1 

681  replace  Cl  with  '1'+tContract+'0'+BUILD->8LOC(C+'141' 

682  replace  C2  with  '1141' 

683  replace  C3  with  BUIL0->BLK_TYPE 

684  replace  C4  with  BUIL0->GRAND 

685  •  Post  Blast  0/F  * 

686  append  blank 

687  replace  ID  with  tContract+'7254'+BUILD->BLOCK 

688  replace  OS  with  'Post  Blast  0/F  of  GRD  BLK  '+BUILD->BLOCK 

689  replace  0  with  BUILD->OF4_D 

690  replace  CAL  with  1 

691  replace  Cl  with  '1'+tContract+‘0'+8UILD->BL0CK+'232' 

692  replace  C2  with  '1232' 

693  replace  C3  with  BUIL0->BLK_TYPE 

694  replace  C4  with  BUILD->GRAND 

695 


696  « 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 
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719 

720 
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723 

724 

725 
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728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 


return 


*  ACTG2  — >  Creates  Activity  File  Data  for  Grand  Blocks 


PROC  ACTG2 

*  Adding  ACTIVITY  Records  * 
set  color  to  w*Vr 

a  15,  30  SAY 
set  color  to  w»/r 
select  ACT 

*  Erection  • 
append  blank 

replace  ID  with  tContract+'7160'+BUILD->BL0CIC 
replace  DS  with  'Erection  of  Grand  Block  •+BUILD->BLOCIC 
replace  D  with  20 

replace  TARGS  with  BUILD->ERECTION 
replace  TARGSTYPE  with  'ON' 
replace  CAL  with  1 

replace  Cl  with  '1'+tContract+'0'+BUILD->BLOCIC+'141' 

replace  C2  with  '1141' 

replace  C3  with  BUILD->BLIC_TYPE 

replace  C4  with  8UIL0->GRAND 

*  Post  Blast  0/F  • 
append  blank 

replace  ID  with  tContract+'7254'+BUILD->BL0CK 

replace  DS  with  'Post  Blast  0/F  of  GRD  BLK  '+BUILD->BLOCK 

replace  D  with  BUILD->0F4_D 

replace  CAL  with  1 

replace  Cl  with  '1 '+tContract+'0'+BUILD->BLOCIC+'232' 

replace  C2  with  '1232' 

replace  C3  with  BUILD->BLK_TYPE 

replace  C4  with  BUILD->GRAND 

*  Blast  &  Painting  * 
append  blank 

replace  ID  with  tContract+'7253'+BUIL0->BL0CIC 

replace  OS  with  'Blast  &  Painting  of  GRD  BLK  '+BUILD->BLOCK 

replace  D  with  BUILD->OF3_D 

replace  CAL  with  1 

replace  Cl  with  '1 '+tContract+'0'+BUILD->BLOCK+'24' 

replace  C2  with  '124' 

replace  C3  with  BUILD->BLK  TYPE 

replace  C4  with  BUILD->GRAND 

*  Pre  Blast  (U-R)  0/F  * 
append  blank 

replace  ID  with  tContract+'7252'+BUILO->BLOCK 

replace  DS  with  'Pre  Blast  (U-R)  O/F  of  GRD  BLK  '+BUILD->BLOCK 

replace  0  with  BUILD->OF2_0 
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749  replace  CAL  uith  1 

750  replace  Cl  with  '1 '+tContract+'0'+BUILD->BLOCK+'2312* 

751  replace  C2  with  '12312' 

752  replace  C3  with  BUILD->BLK_TYPE 

753  replace  C4  with  BUILD->GRAND 

754  *  Pre  Blast  (I MV)  0/F  * 

755  - if  BUILD->STRATEGY  =  'GRAND2'  .or.  BUILD->STRATEGY  =  •GRAND4' 

756  append  blank 

757  replace  ID  with  tContract+'7251 '+BUILD->BL0C1C 

758  replace  DS  with  'Pre  Blast  (INV)  0/F  of  GRD  BLK  '+BUILD->BLOCK 

759  replace  0  with  BUILD->0F1_D 

760  replace  CAL  with  1 

761  replace  Cl  with  '1'+tContract+'0'4BUILD->BLOCK+'2311« 

762  replace  C2  with  '12311' 

763  i - endif 

764  *  Asseinbly  * 

765  - if  BUILD->STRATEGY  =  ■GRAN02' 

766  append  blank 

767  replace  ID  with  tContract+'7130'+BUILD->BL0CK 

768  replace  DS  with  'Assembly  of  GRD  BLK  '+BUILD->BLOCK 

769  replace  D  with  BUILD->asSY_D 

770  replace  CAL  with  1 

771  replace  Cl  with  '1'+tContract+'0'+BUILD->BLOCK+'131' 

772  replace  C2  with  '1131' 

773  replace  C3  with  BUILD->BLK_TYPE 

774  replace  C4  with  BUIL0->GRAND 

775  ' - endif 

776 

777  <===return 

778 

779 

780 

781 

782  ******** . ***** . ********•»*»••»**•»»<.»»»»,»•••»•*» 

783  *  ACT2  - >  Creates  Activity  File  Data  for  Blocks  * 

784  *  * 

785  «  .  .  » 

787 

788  PROC  ACT2 

789 

790  •  Adding  ACTIVITY  Records  * 

791  set  color  to  w4*/r 

792  a  15,  30  SAY  '— >' 

793  set  color  to  w-Zr 

794  select  ACT 

795  *  Erection  * 

796  append  blank 

797  replace  ID  with  tContract+'7150'+BUILD->BLOCK 

798  replace  DS  with  'Stacking  of  Blk  '+BUILD->BLOCK+'  to  '+BUILD->GRAND 

799  - do  case 

800  - case  6UILD->STRATEGY  =  'GRANDE' 

801  replace  D  with  1 

802  - case  BUILD->STRATEGY  =  'GRAND3' 

803  replace  0  with  15 

804  - case  BUILD->STRATEGY  =  'GRAND4' 

805  replace  0  with  5 

806  - endcase 

807  replace  CAL  with  1 

808  replace  Cl  with  '1'+tContract+‘0'+BUILD->BL0CK+'142' 

809  replace  C2  with  '1142' 

810  replace  C3  with  BUILD->BLK  TYPE 

811  replace  C4  with  BUILD->GRAND 

812  *  Assembly  » 

813  append  blank 

814  replace  ID  with  tContract+'7130'+BUILD->BLOCK 

815  replace  DS  with  'Assembly  of  Block  '+BUILD->BLOCK 

816  replace  D  with  BUILD->ASsy_D 

817  replace  CAL  with  1 

818  replace  Cl  with  '1 '+tContract+'0'+BUILD->BLOCK+'131' 

819  replace  C2  with  '1131' 

820  replace  C3  with  BUILD->BLK  TYPE 

821  replace  C4  with  BUILD->GRAN0 

822  *  Sub-Assembly  • 

823  append  blank 
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824  replace  ID  with  tContract+‘7120'+BUIl.D->BLCX:iC 

825  replace  OS  with  'Sub-Assently  of  Block  '+BUILD->BLOCIC 

826  replace  0  with  BUIU)->ASSY_D+20 

827  replace  CAL  with  1 

828  replace  Cl  with  '1 '+tContract+‘0'+BUILD->BL0CK+'12' 

829  replace  C2  with  '112' 

830  replace  C3  with  BUILD->8LK_TYPE 

831  replace  C4  with  8UIL0->GRAND 

832  *  Fabrication  * 

833  append  blank 

834  replace  ID  with  tContract+'7110'+BUILD->BLOCIC 

835  replace  DS  with  'Fabrication  of  Block  '+BUILD->BLOCK 

836  replace  0  with  BUILD->ASSY_0+20 

837  replace  CAL  with  1 

838  replace  Cl  with  '1'+tContract+'0'+BUIL0->BLOCIC+'11' 

839  replace  C2  with  '111* 

840  replace  C3  with  BUILO->BLIC_TYPE 

841  replace  C4  with  BUILD->GRAN0 

842 

843  <=== return 


844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
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863 

864 
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866 
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870 

871 
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873 
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875 

876 

877 
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879 

880 
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885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 


*  REL1  — ->  Creates  Relationship  Data  File  for  Blocks 


PROC  REL1 

*  Adding  RELATION  Records  * 
set  color  to  w<-*/r 

a  16,  30  SAY  '— >• 
set  color  to  w<-/r 
a  15,  30  SAY  '— >• 
select  REL 

*  Erection  * 

- if  BUIL0->GRAN0  =  '  ' 

append  blank 

replace  ID  with  tContract+'7160'+SUILD->BLOCK 
replace  PRED  with  tContract+'7254'+BUILD->BLOCIC 
replace  TYPE  with  'FS' 
replace  LAG  with  5 

- else 

append  blank 

replace  ID  with  tContract+'7150'+BUILD->BL0CK 
replace  PRED  with  tContract+*7254'+BUILD->BLOCIC 
replace  TYPE  with  'FS' 
replace  LAG  with  0 
- endif 

*  Post  Blast  0/F  * 
append  blank 

replace  ID  with  tContract+'7254'+BUILD->BL0CIC 
replace  PRED  with  tContract+'7253'+BUILO->BLOCIC 
replace  TYPE  with  'FS' 
replace  LAG  with  0 

*  Blast  &  Paint  * 
append  blank 

replace  ID  with  tContract+'7253'+BUILD->8LOCK 
replace  PRED  with  tContract+'7252'+BUILD->BL0CIC 
replace  TYPE  with  'FS' 
replace  LAG  with  0 

*  Pre-Blast  (U-R)  0/F  * 
append  blank 

replace  ID  with  tContract+'7252'+BUILD->8LOCIC 
replace  PRED  with  tContract+'7251 '+BUILD->8L0CK 
replace  TYPE  with  'FS' 
replace  LAG  with  0 
»  Pre-Blast  (INV)  0/F  * 
append  blank 

replace  ID  with  tContract+'7251 '+BUILD->BLOCK 
replace  PRED  with  tContract+'7130'+BUILD->BLOCK 
replace  TYPE  with  'FS* 
replace  LAG  with  5 

*  Assenbly  for  Sub-Assenbly  * 
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899  append  blank 

900  replace  10  with  tContract+‘7130'+BUILD->BLOCK 

901  replace  PRED  with  tContract+‘7120'+BUILD->BLOCIC 

902  replace  TYPE  with  'SS' 

903  replace  LAG  with  20 

904  *  Assentjly  for  Fabrication  * 

905  append  blank 

906  replace  ID  with  tContract+‘7130'+BUILD->8LOCIC 

907  replace  PRED  with  tContract+‘7110'+BUILD->BLOCK 

908  replace  TYPE  with  'SS' 

909  replace  LAG  with  20 

910 

911 

912  <===return 

913 

914 

916  *  RELG1  -">  Creates  Relationship  Data  File  for 

917  *  Grand  Blocks 

918  * 

920 

921  PROC  RELG1 

922 

923  •  Adding  RELATION  Records  * 

924  set  color  to  w+*/r 

925  a  16,  30  SAY  '— >• 

926  set  color  to  w<-/r 

927  a  15,  30  SAY  '— >' 

928  select  REL 

929  *  Erection  * 

930  append  blank 

931  replace  ID  with  tContract+'7160'+BUILD->BLOCK 

932  replace  PRED  with  tContract+'7254'+BUILD->BLOac 

933  replace  TYPE  with  'FS' 

934  replace  LAG  with  5 

935 

936  *  Stacking  * 

937  select  BUILD 

938  store  '7254'  to  tStack2 

939  goto  tRecord 

940  I - do  while  BUILD->GRAND  =  tGrand  .and.  BUILD->BLOCK  <  '500' 

941  I - if  .not.  BUILD->FIRST_S  =  '  • 

942  I  I  store  BUILD->FIRST_S  to  tFirst_s 

943  <===<=s*<*==exit 

944  I  ■— endif 

945  I— — enddo 


946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 


goto  tRecord 

while  BUILD->GRAN0  =  tGrand  .and.  BUILD->BLOCK  <  '500' 
select  REL 
append  blank 

-if  BUILD->FIRST_S  =  ■  ' 

replace  ID  with  tContract+'7150'+tFirst_s 

—else 

replace  ID  with  tContract+tStack2+BUILD->GRAND 
I— —endif 

replace  PRED  with  tContract+'7150'+BUILD->BLOCK 
replace  TYPE  with  'SS' 
replace  LAG  with  BUILD->LAG_E 
select  BUILD 
skip 
enddo 


<===return 


RELG2  — >  Creates  Relationship  Data  File  for 
Grand  Blocks 
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974  PROC  RELG2 

975 

976  *  Adding  RELATION  Records  • 

977  set  color  to 

978  a  16,  30  SAY  •-— >< 

979  set  color  to  wv/r 

980  a  15,  30  SAY  '— >• 

981  select  REL 

982  *  Erection  * 

983  append  blanh 

984  replace  ID  with  tContract+‘7160'+8UILD->BLOCIC 

985  replace  PREO  with  tContract+'7254'+BUIL0*>BL0CIC 

986  replace  TYPE  with  'FS* 

987  replace  LAG  with  5 

988  *  Post  Blast  0/F  * 

989  append  blank 

990  replace  ID  with  tContract+*7254'+BUILD->BLOCIC 

991  replace  PRED  with  tContract+'7253'+BUILD->BLOCIC 

992  replace  TYPE  with  'FS' 

993  replace  LAG  with  0 

994  *  Blast  &  Paint  • 

995  append  blank 

996  replace  ID  with  tContract+'7253*+BUIL0->BL0CIC 

997  replace  PRED  with  tContract+'7252'+BUILD->BLOCIC 

998  replace  TYPE  with  'FS* 

999  replace  LAG  with  0 

1000  *  Pre-Blast  (U-R)  0/F  * 

1001  - if  BUILD->STRATEGY  =  'GRAND2'  .or.  BUILD->STRATEGY  =  ‘GRAND4' 

1002  append  blank 

1003  replace  ID  with  tContract+'7252'+BUILD->BLOCIC 

1004  replace  PREO  with  tContract+'7251'+BUILD->BLOCIC 

1005  replace  TYPE  with  'FS* 

1006  replace  LAG  with  0 

1007  - endif 

1008  *  Pre-Blast  (IHV)  0/F  * 

1009  - if  BUILO->STRATEGY  =  'GRANOE' 

1010  append  blank 

1011  replace  ID  with  tContract+'7251»+BUILD->BLOCIC 

1012  replace  PREO  with  tContract+'7130'+BUILD->BLOCIC 

1013  replace  TYPE  with  'SS* 

1014  replace  LAG  with  0 

1015  - endif 

1016 

1017  *  Stacking  * 

1018  select  BUILD 

1019  - do  case 

1020  - case  STRATEGY  =  'GRANDE' 

1021  store  *7130*  to  tStackE 

1022  - case  STRATEGY  =  ‘GRANDS' 

1023  store  '7252'  to  tStackE 

1024  - case  STRATEGY  =  'GRAND4' 

1025  store  *7251'  to  tStackE 

1026  - endcase 

1027  goto  tRecord 

1028  I - do  while  BUILD->GRANO  =  tGrand  .and.  BUILD->BLOCIC  <  '500* 

1029  I - if  .not.  BUILD->FIRST_S  =  '  ' 

1030  I  I  store  BUILD->FIRST_S  to  tFirst_s 

1031  <==<=<=exit 

1032  I  I - endif 

1033  1 - enddo 

1034  goto  tRecord 

1035  - do  while  BUILD->GRANO  =  tGrand  .and.  BUILD->BLOCK  <  *500' 

1036  select  REL 

1037  append  blank 

1038  - if  BUIL0->FIRST_S  =  ■  ■ 

1039  replace  ID  with  tContract+*7150'+tFirst_s 

1040  - else 

1041  replace  ID  with  tContract'<-tStack2+BUILD->GRAND 

1042  - endif 

1043  replace  PRED  with  tContract+'7150'+BUILD->BLOCIC 

1044  - if  BUILO->STRATEGY  =  'GRANDS' 

1045  replace  TYPE  with  'FS* 

1046  - else 

1047  replace  TYPE  with  'SS' 

1048  - endif 
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1049 

1050 

1051 

1052  L. 

1053 

1054 

1055  <= 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094  <■ 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119  ■ 

1120 
1121 
1122 
1123 


replace  LAG  with  BUIL0->LAG_E 
select  BUILD 


return 


*  REL2  - >  Creates  Relationship  Data  File  for  Blocks 


PROC  REL2 

*  Adding  RELATION  Records  * 
set  color  to  w+»/r 

a  16,  30  SAY  •— >' 
set  color  to  w+/r 
a  15,  30  SAY 
select  REL 

*  Erection  * 
append  blank 

replace  ID  with  tContract+‘7150’+BUlLD->BLOCK 
replace  PRED  with  tContract+‘7130'+BUILD->BL0CIC 
replace  TYPE  with  'FS' 
replace  LAG  with  0 
»  Assembly  for  Sub-Assembly  * 
append  blank 

replace  ID  with  tContract+'7130'+BUILD->BLOCK 
replace  PRED  with  tContract+‘7120'+BUILD->BLOCIC 
replace  TYPE  with  'SS* 
replace  LAG  with  20 

*  Assembly  for  Fabrication  * 
append  blank 

replace  ID  with  tContract+‘7130'+BUILD->BLOClC 
replace  PRED  with  tContract+'7110'+BUILD->BLOCIC 
replace  TYPE  with  *SS' 
replace  LAG  with  20 


return 


•  REL3  - >  Creates  Relationship  Data  File  for  Slocks 


PROC  REL3 

*  Adding  RELATION  Records  * 
set  color  to  w*-*/r 

a  16,  30  SAY  '— >• 
set  color  to  w<-/r 
a  15,  30  SAY  '— >• 
select  REL 

•  Erection  * 

-if  BUILD->GRAN0  =  '  ' 

append  blank 

replace  ID  with  tContract+'7160'+BUILD->BLOCK 
replace  PRED  with  tContract+*7254'+BUILD->BLOCK 
replace  TYPE  with  'FS' 
replace  LAG  with  5 

-else 

append  blank 

replace  ID  with  tContract+'7150'+BUILD->BLOCIC 
replace  PRED  with  tContract-r'7254'+BUILD->BLOCK 
replace  TYPE  with  'FS' 
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1124  I  replace  LAG  with  0 

1125  I - endif 

1126  *  Post  Blast  0/F  » 

1127  append  blank 

1128  replace  ID  with  tContract+‘7254'+BUILD->BLOCK 

1129  replace  PRED  with  tContract+*7253'+BUILD->BLOCK 

1130  replace  TYPE  with  ‘FS* 

1131  replace  LAG  with  0 

1132  *  Blast  &  Paint  • 

1133  append  blank 

1134  replace  ID  with  tContract+‘7253'+BUILD->8LOCK 

1135  replace  PRED  with  tContract+'7252'+BUILD->8L0CK 

1136  replace  TYPE  with  'FS' 

1137  replace  LAG  with  0 

1138  *  Pre-Blast  (U-R)  0/F  * 

1 139  append  blank 

1140  replace  ID  with  tContract+'7252'+BUILD->BL0CK 

1141  replace  PRED  with  tContract+'7251*+BUILD->BL0CK 

1142  replace  TYPE  with  'FS^ 

1143  replace  LAG  with  0 

1144  *  Pre-Blast  (IHV)  0/F  * 

1 145  append  blank 

1146  replace  ID  with  tContract+'7251'+BUILD->8L0CIC 

1147  replace  PRED  with  tContract+'7120'+BUILD->BL0CK 

1148  replace  TYPE  with  'FS* 

1149  replace  LAG  with  5 

1150  *  Assembly  for  Fabrication  • 

1151  append  blank 

1152  replace  ID  with  tContract+*7120‘+BUIL0->BLOCK 

1153  replace  PRED  with  tContract+*7110*+BUILD->BL0CK 

1154  replace  TYPE  with  'SS' 

1155  replace  LAG  with  0 

1156 

1157 

1158  <=retum 

1159 

1160 
1161 
1162 


1180 

1181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

92 

93 

94 

95 

96 

97 

98 


*  RES1  - >  Creates  Resource  Data  File  for  Slocks 


PROC  RES1 

•  Adding  RESOURCE  Records  * 
set  color  to  w«-*/r 

a  17,  30  SAY 
set  color  to  R*-/r 
a  16,  30  SAY 
select  RES 

*  Erection  * 

-if  BUILD->GRAHO  =  •  ■ 

append  blank 

replace  ID  with  tContract+*7160*-fBUILD->BLOCK 
replace  RESCOOE  with  <H114‘ 
replace  LEVEL  with  BUILD->8UDJERECT 
replace  LEVTYPE  with  'T' 
append  blank 

replace  ID  with  tContract+‘7160'+BUILD->BL0CK 

replace  RESCOOE  with 

replace  LEVEL  with  1 

replace  LEVTYPE  with  '  ' 

replace  PERIOD  with  1 

else 

append  blank 

replace  ID  with  tContract+'7150*-i'BUILD->BLOCIC 
replace  RESCOOE  with  'HI 14* 
replace  LEVEL  with  BUILD->BUD_ERECT 
replace  LEVTYPE  with  'T' 
apfxnd  blank 

replace  ID  with  tContract+'7150‘+BUILD->BLOCK 
replace  RESCOOE  with  'P_E' 


* 

★ 

* 
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1199  replace  LEVEL  with  1 

1200  replace  LEVTYPE  with  ■  ■ 

1201  replace  PERIOD  with  1 

1202  - endif 

1203  *  Post  Blast  0/F  • 

1204  append  blank 

1205  replace  ID  with  tContract+‘7254'+BUILD->BLOCIC 

1206  replace  RESCOOE  with  <H123' 

1207  replace  LEVEL  with  BUILD->BU0_0F4 

1208  replace  LEVTYPE  with  'T' 

1209  append  blank 

1210  replace  ID  with  tContract+‘7254‘+BUILD->BLOCK 

1211  replace  RESCOOE  with  'PIES' 

1212  replace  LEVEL  with  1 

1213  replace  LEVTYPE  with  '  ' 

1214  *  Blast  &  Paint  * 

1215  append  blank 

1216  replace  ID  with  tContract+'7253'+BUILD->BLOCIC 

1217  replace  RESCOOE  with  'H124' 

1218  replace  LEVEL  with  BUILD->BUD_OF3 

1219  replace  LEVTYPE  with  'T' 

1220  append  blank 

1221  replace  ID  with  tContract+‘7253'+BUILD->BLOClC 

1222  replace  RESCOOE  with  'P124' 

1223  replace  LEVEL  with  1 

1224  replace  LEVTYPE  with  '  ' 

1225  *  Pre-Blast  <U-R)  O/F  » 

1226  append  blank 

1227  replace  ID  with  tContract+‘7252'+BUILD->BLOCK 

1228  replace  RESCOOE  with  'H123' 

1229  replace  LEVEL  with  BUILD->BUD_OF2 

1230  replace  LEVTYPE  with  'T' 

1231  append  blank 

1232  replace  ID  with  tContract+'7252'+BUILD->BLOClC 

1233  replace  RESCOOE  with  'P123' 

1234  replace  LEVEL  with  1 

1235  replace  LEVTYPE  with  '  ' 

1236  *  Pre-Blast  (INV)  O/F  * 

1237  append  blank 

1238  replace  ID  with  tContract+'7251 '+BUILD->BLOCK 

1239  replace  RESCOOE  with  'HIES' 

1240  replace  LEVEL  with  BUILO->BUD_OF1 

1241  replace  LEVTYPE  with  'T' 

1242  append  blank 

1243  replace  ID  with  tContract+'7251 '+BUILD->BLOCK 

1244  replace  RESCOOE  with  'P123' 

1245  replace  LEVEL  with  1 

1246  replace  LEVTYPE  with  '  ' 

1247  *  Assembly  * 

1248  - if  BUILD->STRATEGY  =  'STD'  .or.  BUILD->STRATEGY  =  'GRANDI* 

1249  append  blank 

1250  replace  ID  with  tContract+'7130'+BUIL0->BLOCK 

1251  replace  RESCOOE  with  'H113' 

1252  replace  LEVEL  with  BUILD->BllO  ASSY 

1253  replace  LEVTYPE  with  'T' 

1254  append  blank 

1255  replace  ID  with  tContract+'7130'+BUILD->BLOCIC 

1256  - do  case 

1257  - case  8UILD->ASSY_POS  =  'F' 

1258  replace  RESCOOE  with  'P1131' 

1259  —case  BUILD->ASSY_POS  =  'C 

1260  replace  RESCOOE  with  'PI 132' 

1261  - case  BUILD->ASSY_POS  =  'T' 

1262  replace  RESCOOE  with  'PI 133' 

1263  I— endcase 

1264  replace  LEVEL  with  1 

1265  replace  LEVTYPE  with  '  ' 

1266  append  blank 

1267  replace  ID  with  tContract+‘7130'+BUILD->BLOCI{ 

1268  replace  RESCOOE  with  'P  A' 

1269  replace  LEVEL  with  1 

1270  replace  LEVTYPE  with  '  ' 

1271  replace  PERIOD  with  1 

1272  replace  OFFSET  with  BUILD->ASSY_D-1 

1273  endif 
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1274  *  Sub-As8«*>y  * 

1275  append  blank 

1276  replace  ID  with  tContract+*7120'+BUILD->BL0CIC 

1277  replace  RESCOOE  with  'HUE' 

1278  replace  LEVEL  with  BUIL0->BUD  SUB 

1279  replace  LEVTYPE  with  'T' 

1280  *  Fabrication  * 

1281  append  blank 

1282  replace  ID  with  tContract+'7110'+BUILD->BLOCK 

1283  replace  RESCOOE  with  'Hill' 

1284  replace  LEVEL  with  BUILD->BUD_FAB 

1285  replace  LEVTYPE  with  'T' 

1286 
1287 


1288  <=retum 


1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 


*  RESG1  — >  Creates  Resource  Data  File  for  Grand  Blocks  * 
»  * 


PROC  RESG1 

*  Adding  RESOURCE  Records  * 
set  color  to  w+Vr 

a  17,  30  SAY  '— >' 
set  color  to  w+Zr 
a  16,  30  SAY  '— >' 
select  RES 

*  Erection  * 
append  blank 

replace  ID  with  tContract+'7160'+BUILD->BLOCIC 
replace  RESCOOE  with  'H114' 
replace  LEVEL  with  BUILD->BU0  ERECT 
replace  LEVTYPE  with  'T' 
apjxnd  blank 

replace  ID  with  tContract+'7160'+BUILD->BL0CIC 

replace  RESCOOE  with  'P_E' 

replace  LEVEL  with  1 

replace  LEVTYPE  with  '  ' 

replace  PERIOO  with  1 

*  Post  Blast  0/F  * 
append  blank 

replace  ID  with  tContract+'7254'+BUILD->BLOCIC 

replace  RESCOOE  with  'H123' 

replace  LEVEL  with  BUILO->BUD_OF4 

replace  LEVTYPE  with  'T' 

apfxnd  blank 

replace  ID  with  tContract+'7254'+BUILD->BLOCIC 
replace  RESCOOE  with  'P123' 
replace  LEVEL  with  1 
replace  LEVTYPE  with  '  ' 


return 


*  RES2  - >  Creates  Resource  Data  File  for  Blocks  * 

»  * 


* 


PROC  RES2 

*  Adding  RESOUCE  Records  * 
set  color  to  w<-Vr 
a  17,  30  SAY  '—>' 
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1349  set  color  to  H*-/r 

1350  a  16,  30  SAY 

1351  select  RES 

1352  *  Erection  * 

1353  append  blank 

1354  replace  ID  with  tContract+'7150'+BUILD->BLOCK 

1355  replace  RESCOOE  with  'H114' 

1356  replace  LEVEL  with  BUIL0->BU0  ERECT 

1357  replace  LEVTYPE  with  'T* 

1358  append  blank 

1359  replace  ID  with  tContract+'7150'+BUILD->BLOCIC 

1360  replace  RESCOOE  with  •P_E' 

1361  replace  LEVEL  with  1 

1362  replace  LEVTYPE  with  '  ' 

1363  replace  PERIOD  with  1 

1364  *  Assetnbly  * 

1365  append  blank 

1366  replace  ID  with  tContract+‘7130'+BUILD->BLOClC 

1367  replace  RESCOOE  with  'HI 13' 

1368  replace  LEVEL  with  BUILD->BUO_ASSY 

1369  replace  LEVTYPE  with  'T' 

1370  append  blank 

1371  replace  ID  with  tContract+'7130'+BUILD->BLOCK 

1372  replace  RESCOOE  with  'PIISI' 

1373  replace  LEVEL  with  1 

1374  replace  LEVTYPE  with  ■  ' 

1375  append  blank 

1376  replace  ID  with  tContract+‘7130'+BUILD->BLOCIC 

1377  replace  RESCOOE  with  ‘P_A' 

1378  replace  LEVEL  with  1 

1379  replace  LEVTYPE  with  •  ■ 

1380  replace  PERIOD  with  1 

1381  replace  OFFSET  with  BUILD->ASSY_D-1 

1382  *  Sub-Asseinfay  * 

1383  append  blank 

1384  replace  ID  with  tContract+'7120'+BUILD->BLOCK 

1385  replace  RESCOOE  with  'H112' 

1386  replace  LEVEL  with  BUILD*>BU0_SUB 

1387  replace  LEVTYPE  with  'T' 

1388  *  Fabrication  » 

1389  append  blank 

1390  replace  ID  with  tContract+'7110'+BUILD->BL0CK 

1391  replace  RESCOOE  with  'Hill' 

1392  replace  LEVEL  with  BUILD->BUO_FAB 

1393  replace  LEVTYPE  with  'T'  • 

1394 

1395 

1396  <===return 

1397 

1398 

1399 

1400 


*  RESG2  — >  Creates  Resource  Data  Flie  for  Grand  Blocks 


PROC  RESG2 

*  Adding  RESOURCE  Records  * 
set  color  to  w-Vr 

a  17,  30  SAY 
set  color  to  R+/r 
a  16,  30  SAY 
select  RES 

♦  Erection  • 
append  blank 

replace  ID  with  tContract+'7160'+BUILD->BLOCK 
replace  RESCOOE  with  'HIU' 
replace  LEVEL  with  BUILO->BUD_ERECT 
replace  LEVTYPE  with  'T' 
append  blank 

replace  ID  with  tContract+'7160'+BUILD->BLOCK 
replace  RESCOOE  with  'P_E' 
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1424  replace  LEVEL  with  1 

1425  replace  LEVTYPE  with  •  ' 

1426  replace  PERIOD  with  1 

1427 

1428  *  Post  Blast  0/F  * 

1429  append  blank 

1430  replace  ID  with  tContr8ct+'7254'+BUILD->BLOCK 

1431  replace  RESCOOE  with  ■H123' 

1432  replace  LEVEL  with  BUILD->BUD  0F4 

1433  replace  LEVTYPE  with  'T' 

1434  append  blank 

1435  replace  ID  with  tContract+'7254'+BUILD->BLOCK 

1436  replace  RESCOOE  with  'P123' 

1437  replace  LEVEL  with  1 

1438  replace  LEVTYPE  with  '  ' 

1439  *  Blast  &  Paint  • 

1440  append  blank 

1441  replace  ID  with  tContract+‘7253'+BUILD->BLOCK 

1442  replace  RESCOOE  with  ‘H124' 

1443  replace  LEVEL  with  BUIL0*>BUD  OF3 

1444  replace  LEVTYPE  with  'T* 

1445  append  blank 

1446  replace  ID  with  tContr8ct+‘7253'+BUILO->BLOCIC 

1447  replace  RESCOOE  with  •P124> 

1448  replace  LEVEL  with  1 

1449  replace  LEVTYPE  with  '  ' 

1450  *  Pre-Blast  (U-R)  0/F  • 

1451  append  blank 

1452  replace  ID  with  tContract+‘7252'+BUILD->BLOCIC 

1453  replace  RESCOOE  with  •H123' 

1454  replace  LEVEL  with  BUILO->BUO_OF2 

1455  replace  LEVTYPE  with  ‘T' 

1456  append  blank 

1457  replace  ID  with  tContract+‘7252'+BUILD->BLOCK 

1458  replace  RESCOOE  with  ■P123' 

1459  replace  LEVEL  with  1 

1460  replace  LEVTYPE  with  '  ' 

1461  *  Pre-Blast  (IHV)  O/F  • 

1462  - if  BUIL0->STRATEGY  =  'GRAHOE'  .or.  BUILO->STRATEGY  =  'GRAND4' 

1463  append  blank 

1464  replace  ID  with  tContract+'7251‘+BUILD->BLOCK 

1465  replace  RESCOOE  with  •H123* 

1466  replace  LEVEL  with  BUILD->8UD_OF1 

1467  replace  LEVTYPE  with  ‘T* 

1468  append  blank 

1469  replace  ID  with  tContract+‘7251'+BUILD->BLOCIC 

1470  replace  RESCOOE  with  'PI 23' 

1471  replace  LEVEL  with  1 

1472  replace  LEVTYPE  with  ■  ■ 

1473  - endif 

1474  *  Assembly  • 

1475  - if  BUILD->STRATEGY  =  'GRANDE* 

1476  append  blank 

1477  replace  ID  with  tContract+'7130*+BUILD->BLOCK 

1478  replace  RESCOOE  with  'HI 13* 

1479  replace  LEVEL  with  BUIL0->BU0  ASSY 

1480  replace  LEVTYPE  with  'T* 

1481  append  blank 

1482  replace  ID  with  tContract+'7130'+BUILD->'BLOCK 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491  replace  LEVEL  with  1 

1492  replace  LEVTYPE  with  *  ' 

1493  append  blank 

1494  replace  ID  with  tContract+'7130'+BUILD->BLOCK 

1495  replace  RESCOOE  with  'PA* 

1496  replace  LEVEL  with  1 

1497  replace  LEVTYPE  with  '  ■ 

1498  replace  PERIOD  with  1 


do  case 

case  BUILD->ASSY  POS  =  'F* 

replace  RESCOOE  with  'PI 131* 
case  BUILD->'ASSY_POS  =  'C* 

replace  RESCOOE  with  'P1132' 
case  BUILD->ASSY_POS  =  'T* 

replace  RESCOOE  with  'PI 133' 
endcase 
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I - endif 


1499 

1500 

1501 

1502 

1503  <===return 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 


replace  OFFSET  with  BUILD->ASSy_D-1 


*  HOOEL  H  ->  Text  for  Block  Build  Menu 


PROC  HOOELJI 

set  color  to  gr+/b 
a  4,  17  to  18,  58  double 


a  4,  30  SAY  * 


set  color  to  w+/r 


MODEL  BUILD  MENU  " 


1520 

a 

5, 

18 

SAY  • 

1521 

a 

6, 

18 

SAY  ■ 

1522 

a 

7, 

18 

SAY  ' 

Enter 

Contract  Letter  :  : 

1523 

a 

8, 

18 

SAY  ■ 

Enter 

Project  Name  w/Path 

1524 

a 

9, 

18 

SAY  • 

1525 

a 

10, 

18 

SAY  ' 

1526 

a 

11, 

18 

SAY  ' 

Enter 

Build  Data  Base  w/Path 

1527 

a 

12, 

18 

SAY  • 

1528 

a 

13, 

18 

SAY  ' 

1529 

a 

14, 

18 

SAY  ' 

1530 

a 

15, 

18 

SAY  ' 

1531 

a 

16, 

18 

SAY  ' 

1532 

a 

17, 

18 

SAY  ' 

set  color  to  gr 

a  19,  26  say  ‘Press  "Esc**  to  Return* 


1533 

1534 

1535 

1536  <===return 

1537 

1538 

1539 

1540  *Formotted  by:  dANALYST  Ver.  7.3a  on  March  24,  1992  at  9:47  AH. 
dAHALYST  found  0  error(s),  0  uamingls),  1540  lines. 
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INPUT 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


FILE:  C:\0PLAH\SP8_DATA.PRG 

*  FILE  NAME;  SP8_DATA.PRG 

*  BY:  D.  McQuaide 

*  DATE:  March  24,  1992 

*  OESC: 

*  CALLED  BY: 

*  DATA  FILES; 

*  SP8_DATA.prg 


set  procedure  to  SP8_DATA 


store  space(30)  to  tAgg 
store  space<30)  to  tCurve 
set  color  to  grt-/b 


16 

a 

4, 

17 

to  18,  58  double 

17 

a 

4, 

30 

SAY  "  CURVE  GENERATION  " 

18 

set  color 

to  w*-/r 

19 

a 

5, 

18 

SAY  ' 

20 

a 

6, 

18 

SAY  ' 

1 

21 

a 

7, 

18 

SAY  ‘  Enter  Aggregation  File  w/Path 

1 

22 

a 

8, 

18 

SAY  • 

1 

23 

a 

9, 

18 

SAY  ■ 

— 

24 

a 

10, 

18 

SAY  '  Enter  Curve  File  w/Path 

25 

a 

11, 

18 

SAY  ' 

1 

26 

a 

12, 

18 

SAY  • 

1 

27 

a 

13, 

18 

SAY  ■ 

1 

28 

a 

14, 

18 

SAY  ■ 

1 

29 

a 

15, 

IS 

SAY  ' 

1 

30 

a 

16, 

18 

SAY  ■ 

1 

31 

a 

17, 

18 

SAY  • 

1 

32 

set  color 

to  gr 

33 

34 

a 

19.  _ 

26 

1 A  AAJ 

say  ‘Press  "Esc"  to  Return* 

AAAAAAAAAAAAAAAAAAAAAAA 

35 

I— dc 

while 

.T. 

36 

a 

8, 

23  get  tAgg  picture  ■ ! ! !  I! ! ! ! ! ! ! ! ! ! ! 1 1 1 1 ! ! 1 1! ! ! ! ! ! ! ■ 

37 

38 

39 

40 

41 

42 

43 

44 

45 
48 

47  <==<=<=exit 


read 

-if  readkeyO  =  12 
<==<==<=retum 
•— efxiif 

store  trim<tAgg)+'.agg*  to  dAgg 
—if  .not.  file(dAgg) 
set  color  to  gr+/r 


a  9,  18  SAY  • 
<==<==<=  I  oop 
I - else 


File  NOT  Found 


48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 


I  I - endif 

•— enddo 


set  color  to  gr+/r 
a  9,  18  SAY  ' 


do  while  .T. 

a  11 ,  23  get  tCurve  picture  MM!!!!!!!!!!!!!!!!!!!!!!!!!!!' 

read 

I - if  readkeyO  =  12 

<=<=sreturn 
I - endif 

store  trim(tCurve)+' .cftjf '  to  dCurve 
—if  .not.  fileldCurve) 
set  color  to  gr+/r 
a  12,  18  SAY  • 

:<=<zzslOOp 

I - else 

:<=<s=exit 
I— endif 
enddo 


File  NOT  Found 


set  color  to  gr+/r 
a  12,  18  SAY  ' 

select  B 


Aexi  (Ais^lcu|^  for  ^ile  flafvies 


read  flame  o?  I 

l/cn'Hes  file  exilits 


read  nawe  of  CURV£  RIt 
and  verifies  file  exists 


‘5ct-u^  fUts 
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74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 


get  tDays  picture  '99' 
get  tOate 

get  tPeriod  picture  '999* 


<== 


use  &dAgg  index  TODATE  alias  AGG 
reindex 

select  A 

use  &dCurve  alias  CURVE 


store  ctodC  ')  to  tOate 
store  0  to  tPeriod 
store  0  to  tOays 

3  13,  18  SAY  '  Enter  #  of  Day  /Period  : 

3  14,  18  SAY  '  Enter  Start  Date  : 

3  15,  18  SAY  '  Enter  Nuitoer  of  Periods  : 

while  .T. 

3  13,  47 
3  14,  47 
3  15,  47 
read 

I - if  readkeyO  =  12 

<===<===return 
' - endif 

store  tOate  +  6  to  tStart 

store  (tDate  +  (tDays  *  tPeriod))  -  1  to  tFinish 
select  B 
seek  tStart 
if  eofO 

set  color  to  M+/r 

3  16,  18  SAY  '  Starting  Date 

set  color  to  w**/r 
3  16,  40  SAY  'Not  Found' 
set  color  to  u*-/r 
<=ss<==loop 

I - endif 

set  color  to  w«-/r 
3  16,  18  SAY  ■ 

<=*=exi t 
enddo 


select  AGG 

copy  to  SP8_TEHP  fields  TOOATE,WORkPOS  for  recnoO  <  tPeriod+1 

set  index  to  RES_DATE 

reindex 

select  CURVE 
zap 

append  from  SP8_TEMP 
set  index  to  TOOATE 
reindex 

select  AGG 

set  relation  to  TOOATE  into  CURVE 
set  color  to  gr+/r 


**«*  Creating  Curve  Data  »**»* 


3  17,  18  SAY  '  Creating  Data  for  Rescode  Hill 
store  'H111'  to  tRescode 
store  'CURVE->H111'  to  tField 
do  0ATA1 

a  17,  18  SAY  '  Creating  Data  for  Rescode  H112 
store  'H112'  to  tRescode 
store  *CURVE->H112'  to  tField 
do  DATA1 

3  17,  18  SAY  '  Creating  Data  for  Rescode  H1131 
store  'HI 131*  to  tRescode 
store  'CURVE->H1131'  to  tField 
do  DATA1 

3  17,  18  SAY  '  Creating  Data  for  Rescode  H1132 
store  'HI 132'  to  tRescode 


rtoA  j)TO^T0iw  porcuvietfirs 

-  doij's  m  pericA 

-  daic 

~  (lUMlscr  o?  periods 


boilcls  new  data,  file  based 

on  qIooo’C  pQfq.T'^alcrs 
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149  store  •CURVE->H1132*  to  tField 

150  do  DATA1 

151 

152  a  17,  18  SAY  '  Creating  Data  for  Rescode  H1133 

153  store  'HI 133'  to  tRescode 

154  store  'CURVE->h1133'  to  tField 

155  do  0ATA1 

156 

157  a  17,  18  SAY  '  Creating  Data  for  Rescode  HI 141 

158  store  'H1141'  to  tRescode 

159  store  'CURVE->H1141'  to  tField 

160  do  DATA1 

161 

162  a  17,  18  SAY  '  Creating  Data  for  Rescode  H1142 

163  store  'H1142'  to  tRescode 

164  store  'CURVE->H1142'  to  tField 

165  do  0ATA1 

166 

167  a  17,  18  SAY  '  Creating  Data  for  Rescode  H12311 

168  store  'H12311'  to  tRescode 

169  store  'CURVE->H12311'  to  tField 

170  do  DATA1 

171 

172  a  17,  18  SAY  '  Creating  Data  for  Rescode  H12312 

173  store  'H12312'  to  tRescode 

174  store  'CURVE->H12312'  to  tField 

175  do  0ATA1 

176 

177  a  17,  18  SAY  '  Creating  Data  for  Rescode  H1232 

178  store  'H1232'  to  tRescode 

179  store  'CURVE->H1232'  to  tField 

180  do  DATA1 

181 

182  a  17,  18  SAY  '  Creating  Data  for  Rescode  H124 

183  store  'HI 24'  to  tRescode 

184  store  'ajRVE->H124'  to  tField 

185  do  DATA1 

186 

187  a  17,  18  SAY  '  Creating  Data  for  Rescode  PI 131 

188  store  'PI 131'  to  tRescode 

189  store  'CURVE->P1131'  to  tField 

190  do  DATA2 

191 

192  a  17,  18  SAY  '  Creating  Data  for  Rescode  P1132 

193  store  'P1132'  to  tRescode 

194  store  'aiRVE->P1132'  to  tField 

195  do  DATA2 

196 

197  a  17,  18  SAY  '  Creating  Data  for  Rescode  PI 133 

198  store  'PI 133'  to  tRescode 

199  store  'CURVE->P1133'  to  tField 

200  do  DATA2 

201 

202  a  17,  18  SAY  '  Creating  Data  for  Rescode  P12311 

203  store  'P12311'  to  tRescode 

204  store  'CIIRVE->P12311 '  to  tField 

205  do  0ATA2 

206 

207  a  17,  18  SAY  '  Creating  Data  for  Rescode  P12312 

208  store  ‘P12312'  to  tRescode 

209  store  'CURVE->P12312'  to  tField 

210  do  0ATA2 

211 

212  a  17,  18  SAY  '  Creating  Data  for  Rescode  PI 232 

213  store  'P1232'  to  tRescode 

214  store  'CURVE->P1232'  to  tField 

215  do  0ATA2 

216 

217  a  17,  18  SAY  '  Creating  Data  for  Rescode  P124 

218  store  'P124'  to  tRescode 

219  store  'CURVE->P124'  to  tField 

220  do  DATA2 

221 

222  a  17,  18  SAY  '  Creating  Data  for  Rescode  P_A 

223  store  'PA'  to  tRescode 


slots.  rcsc'jTte.  co<ie»  and  field 
Darme  to  Vdticiloles  Dsecl  iO 
Dabx  I  and  Data  Z  “Sob  roOti< 
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224  store  'CURVE'>P  A'  to  tField 

2^  ^  DATA2 

226 

227  5  17,  IS  SAY  ’  Creating  Data  for  Rescode  P_E  • 

228  store  'PE'  to  tRescode 

229  store  'CURVE->P_E'  to  tField 

230  do  DATA2 


select  CURVE 


replace  all  H113  with  H113HH1132+H1133 

3  17,  18  SAT  *  Creating  Data  for  Rescode  H114 
replace  all  H114  with  H1141+H1142 

a  17,  18  SAY  '  Creating  Data  for  Rescode  H1231 
replace  all  H1231  with  H12311+H12312 

a  17,  18  SAY  '  Creating  Data  for  Rescode  H123 
replace  all  H123  with  H1231  ■'’H1232 

a  17,  18  SAY  '  Creating  Data  for  Rescode  H11 
replace  all  H11  with  H111+H112+H113+H114 

3  17,  18  SAY  '  Creating  Data  for  Rescode  H12 
replace  all  H12  with  H123+H124 

a  17,  18  SAY  '  Creating  Data  for  Rescode  HI 


all  til 


ui^h  U11J.U1? 


a  17,  18  SAY  '  Creating  Data  for  Rescode  P113 
replace  all  P113  with  P1i31+P1132+P1133 

a  17,  18  SAY  '  Creating  Data  for  Rescode  P1231 
replace  all  P1231  with  P12311+P12312 

a  17,  18  SAY  '  Creating  Data  for  Rescode  P123 
replace  all  P123  with  Piai+pi232 


CalcviUccs  SuiniyiafU 


Mcinninqr 


m  II  f  lo  Q/\i  uicobiiiy  i/dca  lur  Kescooe  ric 

replace  all  P12  with  P123+P124 


<===return 


PBnrj:miBP  nirai 


*  Calculates  Manning  Requirements  * 


PROC  DATA1 


store  0  to  teflp_Han 
seeic  tRescode 
-if  .not.  eofO 

p— do  while  RESCODE  =  tRescode  .and.  .not.  eof() 
I - if  WORKPDS  =  0 


p— do  while  RESCODE  =  tRescode  .and.  .not. 
- if  WORKPDS  =  0 

I  wv*  Ml  w*i  nail 

- else  ~ 

replace  &tField  with  (LREQTOT  / 


8}  /  WORKPDS 


score  tLKtuioi  /  o)  /  wokkros  to  temp_Man 
I - endif 


1  skip 

' - enddo 

- endif 

<===pi»turn 


*  PRXEDURE  DATA2 

*  Calculates  Laydown  Requirements 


mrorororoKitOKiforomrorororoKtrororomrororororoa: 
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‘Formatted  by:  dANALYST  Ver.  7.3a  on  March  24,  1992  at  9:47  AH. 
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INPUT 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

cu 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

/.K 

•T^ 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 


FILE: 

* 

♦ 

* 

* 

* 

* 


C:\0PLAM\SP8  GHT.PRG 
FILE  NAME:  SP8_GHT.PRG 
BY:  D.  HcQuaide 
DATE:  March  24,  1992 
DESC: 

CALLED  BY: 

DATA  FILES: 

*  SP8_GHT.prg 

set  procedure  to  SP8_GHT 

*  Setting  Up  Print  Variables  *** 
store  chr(027)+'E*  to  pfteset 
store  chr(027)+‘&l00'  to  pPort 
store  chr(027)+*&l6O'  to  p6lpi 
store  chr(027)-*-'&l80'  to  p8lpi 
store  chr(027)+'&l2A'  to  pLetter 

store  chr(027)+'(8Q'+chr(027)+'(sOpl6.67h8.4vOsOb3T'  to  pFont 
store  chr(O27)+'(OU'+chr(O27)+‘(sOplO.O0hl3.9vOs3b11T'  to  pFontl 
store  chr(027)+'(lU'+chr(027)+'(s0p6.53hl8.0v0s3bl1T'  to  pFont2 
store  chr(027)+'(8U»+chr(027)+*(sOpl2.00hl2.0vOsOb6T'  to  pFont3 
store  chr(O27)+'(10U'+chr(027)+*(sOpl0.O0hl2.0vOsOb3T'  to  pFont4 
store  chr(027)+'&d30'  to  U_on 
store  chr(027)+'&da'  to  U  off 


do  MENUJ 

store  space(30)  to  tAct 
do  while  .T. 

set  color  to  w<-/r 

a  6,  18  SAY  •  Enter  Model  Name  w/Path  ' 

a  7,  18  SAY  •  ' 

a  7,  23  get  tAct  picture  ‘ ! ! ! ! ! ! I ! ! I M ! ! ! H ! ! ! i ! ! ! I M  ! ! ! ' 
read 

I - if  readkeyO  =  12 

<===<s«*<*s*  return 
— endif 

store  trim<tAct)+'.act'  to  tActivity 
store  trim<tAct)+'.rel'  to  tResource 

I - if  file(tActivity) 

set  color  to  u/r 

a  6,  18  SAY  •  I 

18 
18 
IP 


<===<===<= 


a  7, 
a  8, 

2  O 
“  '  f 

=exi  t 


SAY 

SAY 

CAV 


-else 


Can  NOT  Find  File 


set  color  to  w*-/r 
a  9,  18  SAY  • 
<===<===<==  I  oop 

I  I - etxiif 

' - enddo 


*  Setting  up  Data  Bases  * 
set  color  to  w*-/r 

a  16,  18  SAY  '  Setting  Up  Data  Bases 

store  ‘C:\DATA\DBASE\BASE\NASSCO_D.dbf*  to  tCalendar 
store  • C ; \DATA\DBASE\BASE\DATES , ndx ‘ 
store  'C:\DATA\DBASE\BASE\NASSCO.ndx' 
store  • C : \DATA\DBASE\SP8\T_RECORD . dbf • 
store  »C:\DATA\DBASE\SP8\T_H0URS.dbf' 

select  C 

use  atResource  alias  Resource 
set  index  to  ID 
set  color  to  w*/r 
a  17,  31  SAY  'Re-Indexing* 
rein^ 

set  color  to  w/r 
a  17,  31  SAY  '  ■ 

select  B 


to  tNDX_D1 
to  tNDX_D2 
to  tT_Record 
to  tT  Hours 


Set  Uj)  priftt  uafiololes 


reai  project  nawc  and 

V£riVv|  file  exist 


1 —  Set  v>p  clafa  files 
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74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 


use  &tCalendar  alias  Calendar 
select  A 

use  itActivity  alias  Activity 
set  index  to  GANTT 
set  color  to  H*/r 
a  17,  31  SAY  'Re-Indexing' 
reindex 

set  color  to  w/r 

a  16,  18  SAY  ' 

a  17,  31  SAY  '  ' 


*  Starting  the  Gantt  Program  * 
do  while  .T. 

store  '  '  to  tContract 
store  '  '  to  tBlock 

set  color  to  gr 
clear 
do  HENU_2 
while  .T. 

a  7,  46  get  tContract  picture  '!• 
a  8,  40  get  tBlock  picture  '■!!' 

read 

—if  readkeyO  =  12 
<==<=<==<=retum 
•— endif 

select  Activity 
set  color  to  w*/r 
a  16,  18  SAY  ' 
seek  tContract-i-tBlock 
—if  eofO 

set  color  to  w+/r 

a  16,  18  SAY  '  Record  in  Model 

set  color  to  w-*/r 
a  16,  32  SAY  'Record  Not* 

{  oop 

I - endif 

store  LSOATE  -  20  to  WK_Start 
<=zx<=nexit 
I - enddo 

select  Activity 

*  Setting  Up  Memory  Variables  * 

*  Date  Bar  Headers  * 

store  '  '  to  tHEADI 

store  '  '  to  tHEAD2 

store  '  '  to  tHEAD3 

store  ctodC  ')  to  SJJate 

*  Weekly  Backgrotxxl  Variables  • 

store  chr<176)+chr<176)+chr<176)  to  s3 
store  chr<176)+chr(176)+chr<176)+chr<176)  to  s4 
store  chr(176)+chr<176)+chr<176)+chr<176)+chr(176)  to  s5 
store  '  '  to  b3 

store  '  '  to  b4 

store  '  '  to  b5 


store  'M/V  WELL  PLANNED'  to  Hullname 

do  DATE_BAR 

do  GANTTJ 

select  D 

use 


recuA  co'fllfacl  letter  and  W 
nowber,  Verili|  record  exis 


"Set  variaUfi-s 
jft  sub-  rculinea 


us 


—  call  out  sob- roulifles, 


-enddo 


<==return 


*  PROCEDURE  GANTT  1  * 


PROC  GANTT  1 
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149 

151 

« 

Setting  up  Memory  Variables  • 

152 

* 

Steel  * 

153 

store  ctodC  ')  to  t711s,t711f 

154 

store  ctodC  ')  to  t712s,t712f 

155 

store  ctodC  ')  to  t713s,t713f 

156 

store  ctodC  ')  to  t715s,t715f 

157 

store  ctodC  ')  to  t716s,t716f 

158 

store  0  to  t711d,t712d,t713d,t715d,t716d 

159 

store  *  '  to  tStack 

160 

Outfitting  * 

161 

store  ctodC  ')  to  t7251s,t7251f 

162 

store  ctodC  ')  to  t7252s,t7252f 

163 

store  ctodC  ')  to  t7253s,t7253f 

164 

store  ctodC  ')  to  t7254s,t7254f 

165 

166 

167 

168 

store  0  to  t7251d,t7252d,t7253d,t7254d 

— -c 

lo  while  substr(I0,1,1}  =  tContract  .and.  substr(I0,6,3)  =  tBlock 
- do  case 

169 

170 

- case  substr(I0,2,3}  =  *711' 

store  0  to  t711d 

171 

store  LSOATE  to  t711s 

172 

store  LFOATE  to  t711f 

173 

——case  substr(ID,2,3)  =  '712' 

174 

store  0  to  t712d 

175 

store  LSOATE  to  t712s 

176 

store  LFOATE  to  t712f 

177 

178 

- case  sub6tr(I0,2,3}  =  '713' 

store  0  to  t713d 

179 

store  LSOATE  to  t713s 

180 

store  LFOATE  to  t713f 

181 

- case  substr(ID,2,3)  =  '715' 

182 

store  0  to  t715d 

183 

store  LSOATE  to  t715s 

184 

store  LFOATE  to  t715f 

185 

store  'T'  to  tStack 

186 

- case  subatr<ID,2,3)  =  '716' 

187 

store  0  to  t716d 

188 

store  LSOATE  to  t716s 

189 

store  LFOATE  to  t716f 

190 

- case  subetr(I0,2,4)  =  '7251' 

191 

store  0  to  t7251d 

192 

store  LSOATE  to  t7251s 

193 

store  LFOATE  to  t7251f 

194 

case  substr(I0,2,4)  =  '7252' 

195 

store  0  to  t7252d 

196 

store  LSOATE  to  t7252s 

197 

store  LFOATE  to  t7252f 

198 

- case  subatr<ID,2,4)  =  '7253' 

199 

store  0  to  t7253d 

200 

store  LSOATE  to  t7253s 

201 

store  LFOATE  to  t7253f 

202 

- case  sub6tr(ID,2,4)  =  '7254' 

203 

store  0  to  t7254d 

204 

store  LSOATE  to  t7254s 

205 

store  LFOATE  to  t7254f 

206 

1— endcase 

207 

skip 

208 

> - endcio  | 

209 

210 
211 

Calculating  Floats 

212 

select  Calendar 

213 

set  index  to  &tNOX  01 

214 

seek  t713f 

215 

store  NASSCOO  to  Temp  01 

216 

seek  t7251s 

217 

store  NASSCOO  to  Teap  02 

218 

*  Assembly  Float  *  I 

219 

store  (Te«p_02  -  TempJDI)  -  1  to  Assy_Float 

220 

seek  t^54f 

221 

store  NASSCOO  to  TeMp_03 

222 

r 

if  tStack  =  '  ' 

223 

seek  t716s 

set  op  ^loft  j  OcMpldt 
Vari«laUs 


Icai  daks  to  Vauftlilesj 
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224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 


store  NASSCOO  to  Teiip_04 

- else  ~ 

seek  t715s 

store  NASSCOO  to  Tetrp_04 
- endif 

*  Assently  Float  * 

store  (TeflcJ4  -  Tenp  03)  -  1  to  OF  Float 


store  *N*  to  tPrint 
set  color  to  gr+/b 

a  22,19  say  'Print  Hard  Copy  of  GANTT  Chart  (Y/N)  : 

a  22,57  get  tPrint  picture  *!* 

read 

- if  tPrint  =  'Y* 

set  color  to  w+* 
a  23,  33  say  'PRINTING' 

- if  tBlock  >  '500' 

select  ACTIVITY 

copy  to  TaiP_ACT  for  10  =  tContract  .and.  C4  =  tBlock 
select  0 

use  TEMP_ACT  alias  TEMP_ACT 
set  index  to  C_BLIC_S 
reindex 
go  top 

set  device  to  print 
a  1,  1  say  pReset 

a  1,  1  say  pPort 

a  1,  1  say  p6lpi 

a  1,  1  say  pLetter 

do  G  PAGE  0 
do  g“pAG6Ig 
set  device  to  screen 
use 

-^-else 

select  ACTIVITY 

copy  to  TEMP_ACT  for  ID  =  tContract  .and.  substr(ID,6,3)  =  tBlock 
select  0 

use  TEMP_ACT  alias  TEMP_ACT 
set  index  to  C_BLK_S 
reindex 
go  top 

set  device  to  print 
a  1,  1  say  pReset 

a  1,  1  say  pPort 

a  1,  1  say  p6lpi 

a  1,  1  say  pLetter 

do  G_PAGE_A 
set  device  to  screen 

- endif 

set  color  to  gr 
a  23,  31  say  '  ' 

- endif 


<==return 


*  PROCEDURE  G_PAGE_A 
PROC  G  PAGE  A 


store  8  to  X 
store  1  to  y 

a  x,yr10  say  pFont2+'Block  '+tBlock+'  Build  Strategy'+pFont4 
a  x,y+10  say  '  ' 

X  =  X  +  2 

a  X,  2  say  U_oor'STEEL' 
a  X,  17  say  'Start' 


'scholule. 
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299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 


a  X,  26  say  'Coup* 

a  X,  35  say  *Dur'-KJ_off 

a  X,  35  say  '  ' 

a  X,  40  say  U_on+*OUTFITTING' 

a  X,  56  say  'Start* 

a  X,  65  say  'Conp* 

a  X,  74  say  ‘Dur‘+U_off 

a  X,  74  say  *  '  ~ 

X  =  X  +  1 


a  X,  8  say  'F8b<711)' 

- if  t711d  >  0 

a  X,  17  say  t711s 
a  X,  26  say  t711f 
a  X,  35  say  t711d  picture  *999* 
- endif 


a  X,  41  say  '0/F  lnv.<7251)' 

- if  t7251d  >  0 

a  X,  56  say  t7251s 
a  X,  65  say  t7251f 
a  X,  74  say  t7251d  picture  *999* 
- endif 


X  =  X  +  1 


a  X,  3  say  ‘Sub-Assy(712)' 
-if  t712d  >  0 


X,  17  say  t712s 
X,  26  say  t712f 
X,  35  say  t712d  picture 


a 
a 
a 

-endif 

a  X,  41  say  '0/F  Up-R(7252)' 
-if  t7252d  >  0 

a  X,  56  say  t7252s 
^  X,  65  say  t7252f 

X,  74  say  t7252d  picture 


999' 


a 


headinas  Sir  dale 
of  Sdiedolfis 


X  =  X  +  1 

a  X,  3  say  'A88embly(713)' 

- if  t713d  >  0 

a  X,  17  say  t713s 
a  X,  26  say  t713f 
a  X,  35  say  t713d  picture  '999' 
- endif 


a  X,  42  say  'S/B  &  P(7253)' 

- if  t7253d  >  0 

a  X,  56  say  t7253s 
a  X,  65  say  t7253f 
a  X,  74  say  t7253d  picture  '999' 
- endif 


priftl  sciiedula  dales  W  Ade 

portion  of  tVie  Sdiedolt 


X  =  X  +  1 

- if  t715d  =  0 

a  X,  3  say  •Erection<716)' 

- if  t716d  >  0 

a  X,  17  say  t716s 

a  X,  26  say  t716f 

a  X,  35  say  t716d  picture  '999' 

I— —endif 
- else 

a  X,  3  say  'Staclcing(715)' 

- if  t715d  >  0 

a  X,  17  say  t715s 

a  X,  26  say  t715f 

a  X,  35  say  t715d  picture  '999' 

- endif 

- endif 


a  X,  41  say  '0/F  Post(7254)' 

- if  t7254d  >  0 

a  X,  56  say  t7254s 
a  X,  65  say  t7254f 
a  X,  74  say  t7254d  picture  *999' 

- endif 

X  =  X  +  1 

a  X,  20  say  'Assembly  Float* 
a  X,  35  say  ASSy_FLOAT  picture  *999' 
a  X,  57  say  'Outfitting  Float' 
a  X,  74  say  OF_FLOAT  picture  *999' 
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374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 


404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 


X  =  X  +  4 


go  top 

store  *  ■  to  tHEADI 
store  ■  '  to  tHEAD2 
store  *  '  to  tHEAD3 
store  *  '  to  tSHADEI 
store  ctodC  ')  to  S_date 
store  LSOATE-20  to  UK  Start 
do  DATE  BAR 


385 

store  45 

to  y 

386 

a 

x,y 

say 

pFont 

387 

a 

x,y 

say 

p8lpi 

388 

a 

x,y-32 

say 

chr(201) 

389 

a 

x,y-31 

say 

replicate(chr(205),100) 

390 

a 

x,y69 

say 

chr(187) 

391 

X 

=  X  +  1 

392 

a 

x,y-32 

say 

chr(186) 

393 

a 

x,y 

say 

tHEADI 

394 

a 

x,y+69 

say 

chr(186) 

395 

X 

=  X  +  1 

396 

a 

x,y-32 

say 

chr(186) 

397 

a 

x,y 

say 

tHEAD2 

398 

a 

x,yt69 

say 

chr(186) 

399 

X 

=  X  +  1 

400 

a 

x,y-32 

say 

chr(186) 

401 

a 

x,y 

say 

tHEAD3 

402 

a 

x,y+69 

say 

chr(186) 

403 

X 

=  X  +  1 

eofO 


say  chr<186) 
say  tSHADEI 
say  chr<186) 

to  tErect 
say  tSHADEI 


to  tOescrpt 


to  tDescrpt 


to  tDescrpt 


while  .not. 

—if  D  >  0 

a  x,y32 
a  x,y 
a  x,y+69 
X  a  X  +  1 
store  *  ' 
a  x,y 
—do  case 

—case  substrt 10,2,4}  =  '7110* 

store  ‘Steel  Fabrication' 

store  chr(220)  to  tGantt 
—case  substr(ID,2,4)  =  ‘7120’ 

store  ‘Steel  Sub*Assent>ly‘ 

store  chr<220)  to  tGantt 
—case  substr(ID,2,4}  =  ‘7130’ 

store  ‘Steel  Assenfcly'  to  tDescrpt 

store  chr(220}  to  tGantt 
—case  sub6tr(ID,2,4}  =  ‘7^1’ 

store  ‘0/F  Pre-Blast  (Inverted) 
store  chr(207)  to  tGantt 
—case  subetr(ID,2,4)  =  *7252' 

store  ‘0/F  Pre-Blast  (Up-Right) ‘  to  tDescrpt 
store  chr(209)  to  tGantt 
—case  substr(ID,2,4)  =  ‘7253' 
store  ‘0/F 
store  chr(127)  to 
—case  sub6tr(ID,2,4)  = 
store  ‘0/F 
store  chr(223)  to 
—case  sijbstr(ID,2,4)  = 
store  ‘Steel 

store  chr(177)  to  tGantt 
store  chr(004)  to  tE_Date 
store  ‘Y‘  to  tErect 
-case  sub8tr(ID,2,4)  =  '7160' 

store  ‘Steel  Erection'  to  tDescrpt 

store  chr(177)  to  tGantt 
store  chr(004)  to  tEJDate 
store  ‘Y‘  to  tErect 

i - endcase 

store  (LFDATE-LS0ATE)+1  to  tenpOur 
store  (LSDATE-S_date)+1  to  tenpOurl 

tGanttO  =  iif(mod(teinpOur,7)  >  0,int(teinpOur/7)  +  1,int(terapOur/7)) 


to  tDescrpt 


Blast  &  Paint' 
tGantt 
'7254' 

Post  Blast'  to  tDescrpt 
tGantt 
'7150' 

Stacking'  to  tDescrpt 


prinU  (iale  ^ 
Gantt  ScViC^ote 


prints  Guntt  tws  ^or 
Gcintt  Sclieclole 


SP8_GHT.PRG  Formatted  by  dAkALYST  V7.3a  March  24,  1992  9:48  AH  Page  7 


tStartO  =  iif(rood<tefflpOur1,7)  >  0,int(tetnpOur1/7)  +  1,int(tefflp0ur1/7)) 
•if  tErect  =  '  ' 

a  x,y-32  say  chr(186) 
a  x,y-30  say  tDescrpt 

a  x,y<-tStartD  say  replicate  (tGantt,tGanttD) 
a  x,y+tStartD-10  say  LSDATE 
a  x,y+tStartD+(tGanttD+2)  say  LFDATE 
a  x,y+69  say  chr(186) 

X  =  x  +  1 

-else 

a  x,y-32  say  chr(186) 
a  x,y-30  say  tDescrpt 
a  x,y+tStartD  say  **' 

a  x,y+tStartD  say  replicate  (tGantt,tGanttD) 
a  x,y+tStartD-10  say  LSDATE 
a  x,y+tStartD+(tGanttD+2)  say  LFDATE 
a  x,y+69  say  chr(186) 
a  x,y+(((LS0ATE-S_date)/7)-f1)  say  '*• 

X  =  X  1 
■endif 


“Cl  lUWW 

a  x,y-32  say  chr(200) 
a  x,y-31  say  replicate(chr(205),100) 
a  x,y+69  say  chr(188) 


<s==return 


*  PROCEDURE  G_PAGE_D  * 

*  for  Grand  Blocks  * 


PROC  G  PAGE  D 


store  1  to  X 
store  1  to  y 

a  x,y+10  say  pFont2-*-'Grand  Block  '■^C4+‘  Build  Strategy•■^pFont4 
a  x,y<-10  say  '  ' 

X  =  X  +  2 

- do  while  .not.  eof() 

store  sub8tr(ID,6,3)  to  teinpBlk 
do  G_BLK1 
— enddo 


Set  up  to  print  grani  tlock 
Gantt  5ciiejiol<2- 


<===return 


PROCEDURE  G_BLIC1 
for  Grand  Blocks 


PROC  G  BLKI 


*  Setting  up  Memory  Variables  • 

*  Steel  * 

store  ctodC  ')  to  t711s,t711f 

store  ctodC  ')  to  t712s,t712f 

store  ctodC  ')  to  t713s,t713f 

store  ctodC  ')  to  t715s,t715f 

store  ctodC  ')  to  t716s,t716f 

store  0  to  t711d,t712d,t713d,t715d,t716d 

store  ■  '  to  tStack 

*  Outfitting  • 

store  ctodC  ')  to  t7251s,t7251f 
store  ctodC  ')  to  t7252s,t7252f 
store  ctodC  ')  to  t7253s,t7253f 
store  ctodC  ')  to  t72548,t7254f 


seb  op  slorl^CDSviplele 
vari&Uts 
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524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 


store  0  to  t7251d,t7252d,t7253d,t7254d 


while  substr(ID,6,3}  =  ten^lk  .and.  .not.  eof() 
-do  case 

-case  sub8tr(I0,2,3)  =  '711' 
store  0  to  t711d 
store  LSOATE  to  t711s 
store  LFDATE  to  t711f 
-case  substr(ID,2,3)  =  '712' 
store  0  to  t712d 
store  LSOATE  to  t712s 
store  LFDATE  to  t712f 
-case  sub8tr(ID,2,3)  =  '713' 
store  0  to  t713d 
store  LSOATE  to  t713s 
store  LFDATE  to  t713f 
—case  sub6tr(I0,2,3)  =  '715' 
store  0  to  t715d 
store  LSOATE  to  t715s 
store  LFDATE  to  t715f 
store  'T'  to  tstack 
—case  substr(ID,2,3)  =  '716' 
store  0  to  t716d 
store  LSOATE  to  t716s 
store  LFDATE  to  t716f 
—case  substrC 10,2,4)  =  '7251' 
store  D  to  t7251d 
store  LSOATE  to  t7251s 
store  LFDATE  to  t7251f 
—case  substrl 10,2,4}  =  '7252' 
store  0  to  t7252d 
store  LSOATE  to  t7252s 
store  LFDATE  to  t7252f 
-case  substr(I0,2,4)  =  '7253' 
store  0  to  t7253d 
store  LSOATE  to  t7253s 
store  LFDATE  to  t7253f 
—case  substr(ID,2,4)  =  '7254' 
store  D  to  t7254d 
store  LSOATE  to  t7254s 
store  LFDATE  to  t7254f 

I - endcase 

skip 


x,y+-10  say  pFont1-HJ_on<-'Block  Nunber  :  '+te!np6lk-HJ_off+pFont4 
x,y<-10  say  *  ' 

=  X  +  2 

X,  2  say  U_ofrt-' STEEL' 


X,  17  say  'Start' 

X,  26  say  'Coep* 

X,  35  say  'Dur'-KJ_off 
X,  35  say  '  ' 

X,  40  say  U_oo»'OUTFITTING' 
X,  56  say  'Start' 

X,  65  say  'Comp' 

X,  74  say  'Dur'-HJ_off 
X,  74  say  '  ' 

=  X  +  1 


a  X,  8  say  'Fab(711)' 

-if  t711d  >  0 

a  X,  17  say  t711s 
a  X,  26  say  t711f 
a  X,  35  say  t711d  picture  ' 
• - endif 

a  X,  41  say  '0/F  Inv.(7251)' 

•if  t7251d  >  0 

a  X,  56  say  t7251s 
X,  65  say  t7251f 
X,  74  say  t7251d  picture 


a 
a 

I - endif 

X  =  X 

a  X, 


999' 


'999* 


+  1 
3  say 


'Sub-As8y<712)' 


-if  t712d  >  0 


Icods  clo^  ^ 
VariaUes 


prinls  beoclim'o  (or  JaU 
()(  llie  Gurtlt  Stliedole, 
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599 

600 
601 
602 

603 

604 

605 

606 
607 


a  X,  17  say  t712s 
a  X,  26  say  t712f 
a  - 


a  X,  say  tn2r 
a  X,  35  say  t712d  picture  '999* 
-endif 

a  X,  41  say  'O/F  Up-R(7252)' 

-if  t7252d  >  0 


a  X,  56  say  t7252s 

a  X,  65  say  t7252f 

a  X,  ■”  — 


65  say  tTZSZf 

ww,  I  -  74  say  t7252d  picture  '999* 

608  I  endif 


609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 


X  =  X  +  1 

a  X,  3  say  'Assefli)ly(713)' 

■if  t713d  >  0 

a  X,  17  say  t713s 

a  X,  26  say  t713f 

a  X,  35  say  t713d  picture  *999' 
I - endif 

a  X,  42  say  'S/B  &  P(7253)< 
if  t7253d  >  0 

a  X,  56  say  t7253s 

a  X,  - 

I  a  X, 

' - endif 

X  =  X  ■•■  1 

a  X,  3  say  *Stacking<715)' 

-if  t715d  >  0 

a  X,  17  say  t715s 

a  X,  26  say  t715f 

a  X,  35  say  t715d  picture  ‘999* 

' - endif 

a  X,  41  say  'O/F  Post<7254)' 

I - if  t7254d  >  0 


^  pnol  5chc(ioW 


65  say  t7253f 

74  say  t7253d  picture  *999* 


<===return 


*  PROCEDURE  G_PAGE_G 

*  for  Grand  Blocks 


PROC  G  PAGE  G 


a  X,  56  say  t7254s 
a  X,  65  say  t7254f 

I  ax,  74  say  t7254d  picture  *999' 

634  I— endif 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 


go  top 

store  '  '  to  tHEADI 

store  '  '  to  tHEAD2 

store  '  '  to  tHEAD3 

store  •  '  to  tSHADEI 

store  ctodC  ')  to  S_date 

store  LSOATE-20  to  WtC  Start  ' 

do  0ATE_BAR 

store  1  to  X 

store  45  to  y 

a  x,y-35  say  pFont2-i-' Grand  Block  '■••C4-t-*  Build  Strategy'-i-pFont 
a  x,y-35  say  •  ' 
a  x,y  say  p8lpi 
X  =  X  •••  2 

a  x,y-32  say  chr(201) 

say  replicate(chr(205),100) 
say  chr(187) 


x,y-31 
x,y<^ 
x  1 
x,y-32 

,Y 
x,yt69 
x  +  1 
a  x,y-32 
a  x,y 


X  = 


a  X. 


X  = 


say  chr(186) 
say  tHEADI 
say  chr(186) 

say  chr(186) 
say  tHEAD2 


prints  dalt  Wr  headin^^  W 
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674 

675 

676 

677 

678 

z.fn 
Uf  7 

680 

681 

682 

683 

6M 

683 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

■m 

lUD 

706 

m 

/dS 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

U  I 

732 

733 

•nr 

iDH 

735 

ro7 

738 

7Z9 

fitO 

741 

742 

743 

744 

745 

746 

747 

748 


a  x,y+69  say  chr(186) 
X  =  X  +  1 

a  x,y-32  say  chr(186) 
a  x,y  say  tHEAD3 
a  x,y+69  say  chr(186) 


while  .not.  eofO 
store  substr<i0,6,3)  to  tenpolk 
a  x,y-32  say  chr(186) 
say  tSHADEI 
say  chr(l86) 


say  chr(186) 
say  tSHAOEl 

say  U_on*i3font1+'Bloclc  '+temp6lk+U_off+pFont 
say  '  ' 
say  chr(186) 


to  tOescrpt 


a  x,y 
a  x,y+69 
X  =  X  +  1 
a  x,y-32 
a  x,y 
a  x,y-25 
a  x,y-25 
a  x,y*69 
X  =  x  +  1 

do  while  siJhstr(ID;6.3)  =  teneSlk 
if  D  >  0 

store  *  '  to  tErect 

a  v  V  ^iQHAnPI 

-do  case 

■case  substr(ID,2,4>  =  '7110* 

SwCrs  Fab?* * C3t ^ 0** ^ 

store  chr(220)  to  tGantt 
case  substr(ID,2,4}  =  '7120' 

store  '"Stl"  Sub-Assent>ly' 

store  chr(220)  to  tGantt 
■case  substr(ID,2,4)  =  '7130' 

store  '"Stl"  Assencly'  to  tOescrpt 

store  chr(220)  to  tGantt 
case  substr(ID,2,4)  =  '7251' 

store  •"0/F"  Pre-Blast  (Inverted)'  to  tOescrpt 
store  chr<207)  to  tGantt 
case  sufaetr(I0,2,4)  =  '7252' 

store  '"O/F"  Pre-Blast  (Up-Right)'  to  tOescrpt 
store  chr(209)  to  tGantt 
case  sii>str(ID,2,4)  =  '7253' 

store  '"0/F"  Blast  &  Paint'  to  tOescrpt 

store  chr(127)  to  tGantt 
case  substr(ID,2,4)  =  '7254' 

store  '"O/F"  Post  Blast'  to  tOescrpt 

store  chr(223)  to  tGantt 
case  substr( 10,2,4)  =  '7150' 

store  '"Sti"  Stacking'  to  tOescrpt 

store  chr(177)  to  tGantt 
store  chr(004)  to  tE  Date 
store  *Y'  to  tErect 
case  substrl 10,2,4)  =  '7160' 

store  '"Stl"  Erection'  to  tOescrpt 

store  chr(177)  to  tGantt 
store  chr(004)  to  tE_Date 
store  'Y'  to  tErect 
■endcase 


LpriMs  GiSntl 

A,  '• 

r' 


bats  lor  ■91*  ^ 

■}W»  sdieJolG. 


-if  tErect  =  ' 

A  w 

■  A,7-Jt. 

a  x,y-30  say  tOescrpt 
a  x,yr(((LSDATE-S_date)/7)  )  say  replicate  (tGantt, int((LFDATE-LS0ATE)/7)^r1) 
a  x,yt(((LS0ATE-3_date)/7)-9)  say  L3DATE 

a  x,y+(((LS0ATE-S_date)/7)^tint((LFDATE-LSDATE)/7)^r2)  say  LFDATE 
a  x,y+69  say  chr(186) 

X  =  x  ■•■  1 


ilse 


a  x,y-32  say  chr(186) 
a  x,y-30  say  tOescrpt 
a  x,yr(((LS0ATE-S_date)/7)  )  say  '*' 
a  x,y+(((LSDATE-S_date)/p  )  say  replicate  (tGantt, int((LFDATE-LSDATE)/7)^H) 
a  x,y+(((LS0ATE-S_date)/7)-9)  say  LSOATE 

a  x,yr(((LS0ATE-S_date)/7)■^int((LF0ATE-LS0ATE)/7)■^2)  say  LFOATE 
a  x,yr69  say  chr(186) 

X  =  X  ■•■  1 


'  '  cndif 


CDR  RUT  PDR  PnmuiTTakrl  Kiu  rtlUll  VRT  V7  79  Uarch  OL  1007  O-Z^A  au 


749 


skip 


-«nddo 


751 
^2 

753 

754 

755 

756 

757  <===return 

758 

■m 

760 


a  x,y-32  say  chr<200) 
a  x,y-31  say  replicate(chr(205),100) 
a  x,y<-69  say  chr(188) 


762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

■m 

774 

776 

777 

778 

779 

780 

781 

782 
70 

784 

785 

•Toa 
r  uw 

787 

zo9 

790 

791 

792 

793 

794 

795 

796 

70-7 

■m 

799 

ocni 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 
All 

W  I  I 
812 
813 
314 

815 

816 

817 

818 

819 

820 
821 
822 
823 


PROCURE  DATE_BAR 

Creates  the  Date  Bar  Heading  Variabies 
used  In  the  Gantt  Schedules 


PROC  DATE_BAR 
-do  case 

-case  inonth(WK_Start)  =  1 

L\  ¥fs  ^VO 

tewi  %.  V*  %  7  wwi  \OTrv__w  wu*  V  /  •  7"r  /  ww  *>  i  rv 

store  ctod(‘11/01/*+substr(tYR,3,2))  to  S_date 

store  ‘Mov  Dec  Jan  Feb  Mar  Apr  Hay  Jun  Jul  Aug  Sep  Oct  Nov  Dec  Jan  Feb*  to  tHEADI 
store  *450  1  2  3  4  50*  to  tHEADZ 

store  *45678901212345678901234567890123456789012345678901234567890121234567'  to  tHEAD3 
store  b4+s5+b4+84+b5+s4+b4+s5+b4+s4+b5+s4+b4+s5+b4+s3  to  tSHADEI 
-case  inonth(WK_Start)  =  2 

store  str(year<UK_Start)-1,4)  to  tYR 

store  ctod('12/01/'+sub8tr(tYR,3,2))  to  S_date 

store  ‘Dec  Jan  Feb  Mar  Apr  Hay  Jun  Jul  Aug  Sep  Oct  Nov  Dec  Jan  Feb  Har*  to  tHEADI 
store  *50  1  2  3  4  50  1'to  tHEAD2 

store  ‘89012123456?89Q1234567890123456?89Q123456TO9Q123456'^9012123456'ra9Q1'  to  tKEAD3 
store  s5+b4+s4+b5+s4+b4+s5+b4+s4+b5+s4+b4+s5+b4+s4+b3  to  tSHADEI 
-case  inonth(UIC_Start)  =  3 

obwic  avi  V7cai  ku  kiK 

store  ctod('01/01/'+sii)str<tYR,3,2))  to  Sjdate 

store  'Jan  Feb  Har  Apr  Hay  Jun  Jul  Aug  Sep  Oct  Nov  Dec  Jan  Feb  Mar  Apr*  to  tHEADI 
store  *0  1  2  3  4  5  0  1  *  to  tHEAD2 

store  *12345678901234567890123456789012345678901234567890121234567890123456'  to  tHEAD3 
store  b4*s4+b5+s4+b4+s5+b4+s4+b5+s4+b4+s5+b4+s4+b5+s3  to  tSHADEI 
-case  month(WK_Start)  =  4 

store  str<year(WK_Start),4)  to  tYR 

store  ctodCOZ/OI/'+substrftYR.-SfE))  to  S  date 

store  *Feb  Har  Apr  May  Jun  Jul  Aug  Sep  “oct  Nov  Dec  Jan  Feb  Har  Apr  May*  to  tHEADI 
store  *0  1  2  3  4  5  0  1  2*  to  tHEAD2 

w«.w«w  la  wyw  wyw  wyw  ic.jt.j4jf  oyu  ifc  oyv  kw  knc/wj 

store  s4+b5+84+b4+85+b4+s4+b5+s4+b4+s5+b4+s4+b5+s4+b3  to  tSHADEI 
-case  inonth(UIC_Start)  =  5 

stcrc  3tr(ycar(WiC_^3tart)  ,4)  to  tiR 

store  ctod('03/0l7'+substr(tYR,3,2))  to  S  date 

store  *Har  Apr  Hay  Jun  Jul  Aug  Sep  0ct”Nov  Dec  Jan  Feb  Har  Apr  Hay  Jun*  to  tHEADI 
store  *  1  2  3  4  5  0  1  2  *  to  tHEAD2 

store  *90123456789012345678901234567890123456789012123456789012345678901234'  to  tHEAD3 
store  b5+84+b4+85+b4+84+te+s4+b4+s5+b4+s4+b5+s4+b4+s3  to  tSHADEI 
-case  Month(UIC_Start)  =  6 

store  8tr(year<WK_Start),4)  to  tYR 

store  etod('04/01/'-«’Sub6tr(tYR.-3,2})  to  S  date 

store  'Apr  Hay  Jun  Jul  Aug  Sep  *0ct  Mov  Dec  Jan  Feb  Har  Apr  Hay  Jun  Jul*  to  tHEADI 
store  *1  2  3  4  5  0  1  2  *  to  tHEAD2 

I  *97/ cz7efV*t4n4««9/ »«9/tr^rpnr\a 

avviv  W7U  ic.^..7or  07VI  1C  tc^^oroyu  ic^^ofOTU  ic^^/oy '  ko  knciu/o 

store  s4+b4+85+b4+s4+b5+s4+b4+s5+b4+s4+b5+s4+b4+s5+b3  to  tSHADEI 
-case  month(UIC_Start)  =  7 

store  str<year<>flC_Starti,4)  to  tYR 

store  ctod<*05/01/'+sub8tr(tYR,3,2)>  to  S_date 

store  *Hay  Jun  Jul  Aug  Sep  Oct  Nov  Dec  Jan  Feb  Har  Apr  May  Jun  Jul  Aug*  to  tHEADI 
store  *2  3  4  50  1  2  3*  to  tHEAD2 

store  *89012345678901234567890123456789012123456789012345678901234567890123*  to  tHEAD3 
store  b4+85+b4+84+b5+84+b4+85+b4+s4+b5+s4+b4+85+b4+83  to  tSHADEI 
-case  Month(UIC_Start)  =  8 

store  8tr(ye8r<WK_Start),4)  to  tYR 

store  etod(*06/01/*+8ub8tr<tYR,3,2))  to  S  date 

store  *Jun  Jul  Aug  Sep  Oct  Nov  Dec  Jan'Feb  Mar  Apr  Hay  Jun  Jul  Aug  Sep*  to  tHEADI 
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824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 


store  '2  3  4  50  1  2  3  'to 

store  '23456789012345678901234567890121234567890123456789012345678901234567'  to 
store  85+b4*84+b5+84+b4+s5+b4+s4+b5+s4+b4+s5+b4+s4+b3  to  tSHAOEl 
——case  inonth(WK_Start)  =  9 

store  str<ye«r(WIC_Start),4)  to  tYR 

store  ctod('07/01/'+substr(tYR,3,2))  to  S_date 

store  'Jul  Aug  Sep  Oct  Nov  Dec  Jan  Feb  Mar  Apr  May  Jun  Jul  Aug  Sep  Oct'  to 
store  '3  4  50  1  2  3  4'  to 

store  '78901234567890123456789012123456789012345678901234567890123456789012'  to 
store  b4+s4+b5+84+b4+s5+b4+s4+b5+s4+b4+s5+b4+s4+b5+s3  to  tSHADEI 
case  !!fonth(WIC  Start)  =  10 

store  str(year<WK_Start),4)  to  tYR 

store  ctod('08/01/'+substr(tYR,3,2))  to  S_date 

SkCrs  Qc«  Hcv  Dsc  Js^  FQm  Hsp  Apr  wUr*  Jut  Aus  Sep  Oct  Hcy^  to 

store  '3  4  50  1  2  3  4'  to 

store  '12345678901234567890121234567890123456789012345678901234567890123456'  to 


wormMG  I 


tHEAD2 

tHEAD3 


tHEADI 

tHEAD2 

tHEAD3 


tHEAD2 

tHEA03 


841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 

871 
S7Z 

In 

874 

875 

876 

877 

87* 

8TO 

880 

881 

882 

883 

885 

886 


- case  iiionth(WK_Start)  =  11 

store  str(year(WIC_Start),4)  to  tYR 

store  ctod<'09/01/'+substr(tYR,3,2))  to  S_date 

store  'Sep  Oct  Nov  Dec  Jan  Feb  Mar  Apr  Hay  Jun  Jul  Aug  Sep  Oct  Nov  Dec'  to  tHEAOl 
store  '4  5  0  1  2  3  4  5'  to  tHEAD2 

store  *567390123456foyu12123456foyu12345678901234567S901234567S901234567B90®  to  tHEAD3 
store  b5+84+b4+85+b4+84+b5+s4+b4+s5+b4+s4+b5+s4+b4+83  to  tSHADEI 
case  nionth(W1C_Start)  =  12 

store  str(year(wiC_Start),4)  to  tYR 

store  ctod('10/01/'+sub6tr(tYR,3,2))  to  S_date 

store  'Oct  Nov  Dec  Jan  Feb  Mar  Apr  Hay  Jun  Jul  Aug  Sep  Oct  Nov  Dec  Jan'  to  tHEADI 
store  '4  50  1  2  3  4  50'  to  tHEADZ 

store  *01234567890121234567890123456789012345678901234567890123456789012123'  to  tHEAD3 
store  s4+b4+85+b4+s4+b5+s4+b4+s5+b4+s4+b5+s4+b4+s5+b3  to  tSHADEI 
- endcase 

<=retum 


•  PROCEDURE  SCREEM1 

PROC  SCREEN1 


set  color  to  gr+/b 
a  1,0  to  22,79  double 
a  2,  1  clear  to  3,78 

a  2,  6  say  'Block  No.' 

a  2,  22  say  'Contract' 

set  color  to  u+/b 
a  2,  16  say  tBlock 

a  2,  31  say  tContract 

9  2,  34  say  Hullnama 

set  color  to  R*-/r 
a  4,  1  clear  to  21,78 

set  color  to  ”r^/r 

-—4-—-. 

set  color  to  M+/r 
a  4,  17  say  'Start' 

a  4,  26  say  'Coctp* 

a  4,  35  say  'Dur* 

OCfc  loWhWI  ww  91  •/» 

a  4,  40  say  'OUTFITTING' 
set  color  to  w*-/r 


dlAc  Sedien 


001 

888 

889 

390 

891 

892 

893 

894 

895 

896 

897 

898 


a  4,  65  say  'Comp* 
a  4,  74  say  *Dur' 


set  color  to  u*-/r 
a  5,  8  say  'Fab<711)' 

set  color  to  w/r 
-if  t711d  >  0 

a  5,  17  say  t711s 

a  5,  26  say  t711f 

a  5,  35  say  t711d  picture 


999' 


oV  ^  buAtt  5016 
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set  color  to  */r 
a  5,  41  say  ‘0/F  Inv.  (7251)’ 
iillllli■llllli■M  iol)[  It  II 

if  17251  d  >  0 

a  5,  56  say  17251  s 
a  5,  65  say  17251  f 
a  5,  74  say  17251  d  picture  '999' 
if 

set  color  to  m+/r 
a  6,  3  say  ' sub-Assy(71 2)’ 
set  color  to  w/r 
if  t712d  >  0 

a  6,  17  say  t7l2s 

a  6,  26  say  t712f 

a  6,  35  say  t712d  picture  '999' 

if 

set  color  to  uw 
a  6,  41  say  ‘0/F  UP-R(7252)' 
set  color  to  u/r 
if  t7252d  >  0 

a  6,  56  say  t7252s 

a  6,  65  say  t7252f 

a  6,  74  say  t7252d  picture  19991 

if 


set  color  to  n+lr 
a  7,  3  say  1Asss41Y(713)  ' 
set  color  to  “W/r 
—if  t713d  >  0 

a  7,  17  say  t713s 
a  7,  26  say  t713f 
a  7,  35  say  t713d  picture  19991 
-endif 

set  color  to  w+/r 
a  7,  42  say  "S/B  &  P(7253) 
set  color  to  w/r 
if  t7253d  >  0 


displays  Scijeclole  doles  ftr 

dole.  of  tile  Gcirttt  Stlwelole. 


ooooooooooo(»ooooifisoeQ9oaoesc»ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooi 

940  a  7,  74  say  t7253d  picture  ‘9990 

941  L  if 


— if  tstack  =  ‘  ‘ 

set  color  to  W/r 
a  8,  3  say  ‘Erection(716)’ 
set  color  to  WIr 
if  t716d  >  0 

a  8,  17  say  t716s 
a  8,  26  say  t716f 
a  8,  35  say  t716d  picture  '999' 
L  i  f 

-else 

set  color  to  w+/r 
a  8,  3  say  ‘Stacking(715)’ 
set  color  to  hi/r 
if  t715d  >  0 

a  8,  17  say  t715s 
a  8,  26  say  t715f 
a  8,  35  say  t715d  picture  ‘999' 
L  if 

-endif 

set  color  to  W+/r 
a  8,  41  say  80/F  Post(7254)’ 
set  color  to  W/r 
if  t7254d  >  0 

a  8,  56  say  t7254s 
a  8,  65  say  t7254f 
a  8,  74  say  t7254d  picture  '999' 

L  if 


set  color  to  W  +/bg 
all,  1  clear  to  21,78 
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974 

a 

11,  11  say  tHEADI 

975 

a 

12,  11  say  tHEAD2 

976 

a 

13,  11  say  tHEAD3 

977 

set  color  to  /bg 

978 

a 

14,  3  say  711' 

979 

a 

15,  3  say  712' 

980 

a 

16,  3  say  '713' 

981 

a 

17,  3  say  172510 

982 

a 

18,  3  say  '7252' 

983 

a 

19,  3  say  7253' 

984 

a 

20,  3  say  '7254' 

985 

if 

tStack  =  '■ ' 

986 

a  21,  3  say  716' 

987 

else 

988 

a  21,  3  say  715' 

989 

L 

if 

990 

991 

if 

t711d  >  0 

992 

store  int((t711s-S  date)/7)+12  to  tY1 

993 

store  int((t711f-t711s)/7)+2  to  dY1 

994 

store  int((t711s-S_date)/7)+1  to  tY2 

set  color  to  M+/g 

996 

S  14,  tY1  say  replicate  <'-',int<<t711f-t711s)/7)+1) 

997 

set  color  to  /bg 

998 

a  14,  tY2  say  t711s 

a  14,  tYI+wl  say  t711f 

1000 

L_ 

— end! f 

1001 

1002 

if 

t712d  >  0 

1003 

store  int(  (t71 2s-S_dste)/7  )+12  to  tYI 

1004 

store  int(  (t712f  -t712s)/7)+2  to  dYI 

1005 

store  intC(t712s-s_dat.8i7  )+l  to  tY2 

set  color  to  u+/g 

;  r  7 

a  15,  tYI  say  replicate  ('-!,  int((t712f-t712s)  /7)+1) 

1008 

set  color  to  /bg 

1009 

a  15,  tY2  say  t712s 

1010 

r 

a  15,  tYI+dYl  say  t712f 

1  0 

1 

1 

-  i  f 

1012 

1013 

if 

t713d  >  0 

1014 

store  int((t713s-S_date)/7)+12  to  tYI 

1015 

store  int{(t713f-t713  s)/7)+2  to  dyl 

1016 

store  int{{t713s-S_date)/7  )+1  to  tY2 

1017 

set  color  to  W+/g 

1018 

9  16,  tYI  say  replicate  <'-',int<(t713f-t713s)/7)+1) 

1019 

set  color  to  /bg 

1020 

a  16,  tY2  say  t713s 

1021 

a  16,  tYI+dYl  say  t713f 

1022 

[ 

if 

1023 

1024 

if 

t7251d  >  0 

1025 

store  int((t~ls-S_date)  /7)+12  to  tYI 

1026 

store  int(  (t7251f  -t7251s)/7)+2  to  dyl 

1027 

store  int((t7251s-S_dete)  /7)+1  to  tY2 

1028 

set  color  to  w+/g 

1029 

a  17,  tYI  say  repicate  (  int((t7251f-t7251  s)/7)+1 

1030 

set  color  to  /bg 

1031 

a  17,  tY2  say  1251  s 

1032 

a  17,  tYI+dYl  say  t7251f 

1033 

L 

if 

1034 

1035 

if 

t7252d  >  0 

1036 

store  int({t7252s-S  dete)  /7)+12  to  tYI 

1037 

store  int((t7252f-t7252s)  /7)+2  to  CM 

1038 

store  int((t7252s-S_date)  /7)+1  to  tY2 

1039 

set  color  to  w+/9 

1040 

13  18,  tYI  say  replicate  (  int((t7252f-t7252s)  /7)+1 

1041 

set  color  to  /bg 

1042 

a  18,  tY2  say  t7252s 

1043 

a  18,  tYI+dYl  say  t7252f 

1044 

L 

if 

1045 

1046 

if 

t7253d  >  0 

1047 

store  int((t7253s-S  date)/7)  +12  to  tyl 

1048 

r 

store  int((t7253f-t7253s)/7)+2  to  dyll 

GanU  W 


Gantt  bars 
■aeclion  cf  tbe 


"ter 

sclie 
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1049  store  int(  (t7253s-S_date)  /7)+i  to  tY2 

1050  set  coior  to  w/g 

1051  a  19,  tYI  say  repiicate  int((t7253f-t7253s)  /7)+1) 

1052  set  color  to  /bg 

1053  a  19,  tY2  say  t7253s 

1054  6a  19,  tYI+dYl  say  t7253f 

1055  -endif 

1056 

1057  -if  t7254d  s  O 

1058  store  int((t7254s-S_date)  /7)+12  to  tYI 

1059  OOOOstore  int((t7254f-t7254s)  /7)+2  to  dyl 

1060  store  int((t7254s-S_date)  /7)+1  to  tY2 

1061  set  color  to  w+/g 

1062  a  20,  tYI  say  replicate  int({t7254f-t7254s)  /7)+1) 

1063  set  color  to  /bg 

1064  a  20,  tY2  say  t7254s 

1065  a  20,  tY1+dYI1sayt7254f 

1066  -endif 

1067 

1068  if  tStack  =  $  j 

1069  store  't7Md'to  tErectd 

1070  store  at716st  to  tErects 

1071  store  It716ft  to  tErectf 

1072  else 

1073  store  't715d'  to  tErectd 

1074  F  store  ‘t715s'to  tErects 

1075  store  ‘t715f'to  tErectf 

1076  L  if 

1077  if  StErectd  >  0 

1078  store  int((&tErects-S_date)  /7)+12  to  tYI 

1079  store  int((&tErectf-&tErects)  /7)+2  to  dyl 

1080  store  int((&tErects-S_date)  /7)+1  to  tY2 

1081  set  color  to  W+/g 

1082  a  21,  tYI  say  replicate  int((8itErectf-&tErects)  /7)+l) 

1083  set  color  to  /bg 

OW  a  21,  tY2  say  &tErects 

1085  a  21,  tYI+dYl  say  itErectf 

1086  L  if 

1087 

1088 

1089  <=== return 

1090 

1091 

1092  *  — 

1093  PROCEDURE  HENU-1 

1094  •  Blank  for  Gantt  Hew  Format  * 

*  * 

1095 

1096 

1097  PROC  MENU-1 

1098 

1099  set  color  to  gr+/b 

1100  a  4,  17  to  18,  58  double 

1101  a  4,  30  SAY  "GANTT  CHART  MENU  !! 

1102  set  color  to  u+/r 

1103  a  5,  18  SAY  " 

1104  a  6,  18  SAY  ‘ 

1105  a  7,  18  SAY  ‘ 

1106  a  8,  18  SAY  ' 

1107  a  9,  18  SAY  ‘ 

1108  a  10,  18  SAY  ' 

1109  a  11,  18  SAY  ' 

1110  a  12,  18  SAY  " 

1111  a  13,  18  SAY  ‘ 

1112  a  14,  18  SAY  ' 

1113  a  15,  18  SAY  ‘ 

1114  a  16,  18  SAY  ‘ 

1115  a  17,  18  SAY  ' 

1116  set  color  to  gr 

1117  a  19,  26  say  ‘Press  IIEsc^to  Return’ 

1118 

1119  <===return 

1120 
1121 

1122  ‘ 

1123  • 


PROCEDURE  UENU_2 
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1124 

Text  for  Gantt 

Hem  Format  • 

1125 

1126 

1127 

PROC  MENUJ 

1128 

1129 

set  color  to  gr+/b 

1130 

a  4,  17  to  18,  58 

double 

1131 

1132 

set  color  to  gr+/rl 

1133 

a  5,  18  SAY  ‘ 

1 

1134 

a  6,  18  SAY  ‘ 

1 

1135 

3  7,  18  SAY  8 

Enter  Contract  Letter  : 

t 

1136 

3  8,  18  SAY  @ 

Enter  Block  No. 

1 

1137 

3  9,  18  SAY  ‘ 

1 

1138 

3  10,  18  SAY  ‘ 

I 

1139 

set  color  to  w/r 

1140 

3  11,  18  SAY  ‘ 

Contract  Letters 

1 

1141 

3  12,  18  SAY  ‘ 

llxm  _  w/V  UELL  PLANNED 

1 

1142 

3  13,  18  SAY  ‘ 

1 

1143 

3  14,  18  SAY  ’ 

1 

1144 

3  15,  18  SAY  ‘ 

1 

1145 

3  16,  18  SAY  ‘ 

t 

1146 

3  17,  18  SAY  ‘ 

1 

1147 

set  color  to  gr 

114s 

a  19,  26  say  ‘Press 

“Esc" to  Return’ 

1149 

1150  < 

===return 

1151 

1152 

1153 

•  Formtted  by:  dANALYST  Ver.  7.3a  on  March  24,  1992  at 

9:48  AM 

dANALYST  found  0  error(s),  C 

warnin9(S),  153  lines. 
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INPUT  FILE 
1 

3 

4 

5 

6 

7 

8 

10 
11 


c:\oplan\sp8_lay  .PRG 
FILE  NAME:  SP8_LAY.PRG 

•  BY:  D.  HcQuaide 

'  DATE:  March  24,  1992 
'  DESC: 

'  CALLED  BY: 

'  DATA  FILES: 

*  SP8-LAY.  prg 

set  procedure  to  SP8_LAY 


12 

store 

space(30)  to  tModel 

13 

set  coior 

to  gr+/b 

14 

a  4, 

17 

to  18,  58  double 

15 

a  4, 

30 

SAY  “  LAYOWN  SCHEDULE 

U 

16 

set  coior 

to  w+/r 

17 

a  5, 

18 

SAY* 

8 

18 

a  6, 

18 

SAY  ‘ 

1 

19 

a  7, 

18 

SAY  '  Enter  klodel 

Ume  w/Path 

1 

20 

a  8, 

18 

SAY 

1 

201 

a  9, 

18 

SAY  * 

1 

22 

a  10, 

18 

SAY  ' 

1 

23 

all. 

1  8 

SAY  ‘ 

1 

24 

a  12, 

18 

SAY* 

1 

25 

a  13, 

18 

SAY* 

[ 

26 

a  14, 

18 

SAY  " 

1 

27 

a  15, 

18 

SAY  * 

1 

28 

a  16, 

18 

SAY* 

1 

a  17, 

18 

say  8 

1 

30 

set  color 

to  gr 

31 

a  19, 

26 

say  'Press  "Esc"  to  Return' 

32 

while 

..T, 

I!!!!  !!!!  !!!!!  !!!!!  !l!l!!ll!!!!° 


33  a  9,  23  get  tModel  picture 

34  r  reed 

35  1  I - if  resdkeyO  =  12 

36  <==<=s<s=apeturn 

37  I - endif 

38 

39  store  trim<tHodel)+'.act'  to  cModel 

40  . - if  file(t*1odel) 

41  <===i==s<r=rexit 

42  else 

43  set  color  to  bt+/r 

44  a  15,  18  SAY  ‘  File  Does  Not  Exist 

45  set  color  to  H/r 

46  I)  15,  26  SAY  ‘Activity’ 

47  set  color  to  w/r 


read  Qod  verify  model 
flciiyie  Qhd  fite^ 


50  I - fnddo 

i  i 

52  select  A 

53  use  Model  Index  TABLE  LS  alias  MODEL 

54  set  color  to  w*/r 

55  a  15,  18  SAY  '  Packing  &  Reirx&exing  File 

56  set  color  to  n+lr 

57  a7,18sAY# 

58  a  8,18  SAY’ 

59  a  9  ,  1  8  s  A  Y  ’ 

60  a  15,  18  SAY  ' 

61  peck 

62  reindex 

63 

64 

65 

66  •  ■  the  Print  CodeS  ** 

67  *  "nomel  1”  Standard  Setup,  used  to  print  lines, background, gantt  I 

68  store  chr(027)+'(8Q'+chr<027)+'(s0p16.67h8.5v0s0b3T'+chr(027>+*Sl1O'  to  nonaalj 

69  *  "r)orMl_P''  Standard  Setup,  used  to  print  lines, background,gantt 

70  store  chr(027)+'(8Q'+chr<027)+'<s0p16.67h8.4v0s0b3T'+chr(027>+'&l0O’  to  nonBal_P 

71  *  "nor«al_2“  used  to  print  Data  Information 

72  store  chr(027)+'<0U*+chr<027)+'(s0p16.67h9.6vOs0b6T‘+chr(027)+'&l1O'  to  noniial_2 

73  •  "resetP"  Reset  Printer  ***  ■ 


-  ‘od  ujs  'Jctki  Tiles 
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74 

75 

76 

77 

78 
rf 
80 
81 
82 

83 

84 

85 

86 
ur 
88 

89 

90 

91 

92 

93 

94 

95 

96 

97 
93 


store  chr<027)+*E'  to  resetP 

*  "legel"  Set  for  legel  paper  *** 

•  f  t _ I 

dWUl  C  will  VVCf LO  legei 

*  "PRT_lpi6“  6  Lines  per  Inch  *** 
store  Chr(027)+*&160'  to  PRY  lpi6 

*  "PROpiS"  8  Lines  per  Inch  *** 
store  chr<027)+'4l8D'  to  PRT_lpi8 

*  "under_y"  Starts  underlining  print  *** 
store  chr(027)+'Sd)'  to  under_y 

*  "under_n"  Stops  underlining  print  *** 

rhr^027)+*4cQ*  tO  UTSCicr  H 
»  "B0LD_1"  used  to  print  Titles 

store  chr(027)+'(0U'+chr(027)+'(s0p10.00h13.9v0s3b11T'  to  BOLD  1 

*  iiom  A  _  ~ 

U9CVI  kW  pilllk  11  Lies 

store  chr(027)+'(OU*+chr<027)+'(sOp8.11h16.1vOs3b11T'  to  BOLD  2 

*  "BOLDJS"  used  to  print  Titles 

store  chr(027)+»<0u«-iehrto27)+'(sUp6.53h18.0v0s3b11T'  to  BOLD  3 


*  Re-Calculate  the  Gantt  Placements  for  print-out  ** 
set  color  to  R*/r,i#<-/r 
store  'Y'  to  tPLACE 

a  7,  18  say  ‘  Recalculating  Gantt  Placements  (Y/N)  ' 

a  7,56  get  tPLACE  picture  •!' 

rssca 


99  I - if  readkeyO  =  12 

100  <===<==return 

101  — endif 


102 

103 

104 

105 

106 

107 

108 
109 

lib 

111 


-if  tPLACE  =  'Y' 

set  color  to  H+/r,w<-/r 
a  14,  18  say  ■ 
set  color  to  >t+*/r 
a  14,  23  say  'Recalculating' 
do  PLACEMNT 
set  color  to  w-Zr 
a  14,  18  say  ' 

I - endif 


Gantt  Placements 


I  iw 


113 

- do  vhile  .T. 

114 

store  '  ' 

to  t92A,t92B,t93A,t93B 

113 

Store  *  * 

xo  xdnopfXiaoiei rtiaoie^ 

116 

store  '  ' 

to  tArea  A 

.tArea  B 

117 

set  color 

to  gr+/r. 

Zw 

118 

a  5,  18 

SAY  '  Steel 

Outfitting 

119 

set  color 

to  wt/r 

120 

a  7,  18 

SAY  ' 

Shoo 

Area  "A" 

121 

a  8,  18 

SAY  ' 

Table  #1 

Area  "B" 

122 

a  9,  18 

SAY  ' 

Table  #2 

123 

set  color 

to  gr+/r 

124 

a  12,  18 

SAY  ' 

1992  1993 

125 

set  color 

to  Ht/r 

a  IQ 

cky  • 

127 

a  14,  18 

SAY  ' 

Jul->0ec 

128 

set  color 

to  gr+/r 

129 

a  16,  18 

SAY  '  Select  with 

an  "X"  Your  Choices 

130 

a  7,  22 

get  tShop 

picture 

1  1  1 

131 

a  8,  22 

get  tTablel  picture 

1  1  1 

132 

a  9,  22 

get  tTable2  picture 

1  1  1 

133 

a  7,  42 

get  tArea_A  picture 

'! ' 

134 

a  8,  42 

get  tArea  B  picture 

* ! ' 

135 

a  13,  37 

get  t92A 

picture 

1 1 1 

136 

a  14,  37 

get  t92B 

picture 

* ! ' 

137 

a  13.  42 

get  t93A 

picture 

1 1 1 

138 

a  14,  42 

get  t93B 

picture 

( 1  > 

139 

read 

4 

140 

_ i-f  =  19 

142 

' - endif 

k*** A A AAA4 

kkk AkAkkkk 

A A A A A A A AAA 

143 

144 

145 

set  color  to  tt*/r 

146 

a  16,  18 

SAT  ■ 

setting  up  Memory  Variables 

147 

148 

**•  Memory  Variables  to  Create  Calendar  Grid  *** 

u|5  print  vano-loles, 


n«ccl  to  re-ccJcotale 
placervvents 


read  t&loies  and  time  span 
foY  privit  outs 
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149  store  '+chr(177)+chr(177)  to  linewl 

150  store  '  '  to  dl 

151  storeCHR(176)TOd2 

152  store  CHR(177)  TO  d3 

153  store  CHR(177)+CHR(177)  TO  d4 

154  store  dl+d2+dl+d2+dl+d4  TO  wk 

155  store  d3td2+dl+d2+dl+d4  TO  wkm 

156  store  dl+d3+dl+d2+dl+d4  TO  wkt 

157  store  dl+d2+d3+d2+dl+d4  TO  wku 

158  store  dl+@dl+cf3+dl+d4  TO  wkth 

159  store  dl+d2+dl+d2+d3+8i  TO  wkf 

store  TO  wkmas 

store  dl+d2+dl+d3+d3*  TO  wkthank 


set  Up  van  Chiles 


162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 


store  cEWB+dl+d2+dl+d4  TO  wkmt 
store  d3+d3+dM@+dl+d4  TO  wkmtu 

Start  Dates  of  each  Grid  ‘ 
store  ctod(  @  12/30/91  ')  to  start92a 
store  ctod(  t  06/29/92  ')  to  start92b 
store  ctod(81 2/28/92-  )  to  start93a 
store  ctod(  ‘06/28/93’)  to  start93b 


***  Calendar  Headings  &  Grid  for  First  Half  of  1992  **♦ 
store  '  1  JANUARY  1992  |  FEBRUARY  1992  | 

store  <33  1111111111222222222233  11111111112222222222 

store 
store 


Set  Up  dale  tar 


MARCH  1992  | 

1111111111222222222233 


APRIL  1992 
1111111111 


•0112345678901234567890123456789011234567890123456789012345678912345678901234567890123456789011234567890123456789 


8 


10 


11 


12 


13 


store  wktmA+tA+tdc-fwk+uk-mk+wk+Hk+wk+wk+wk+wk+wk+Hk+wkf+wk+tik-nik+uk+vik+HkieHrk+wk+Hk+Hk  to  dtln  E92A 


14 


15 


16 


***  CalefKlar  Headings  i  Grid  for  Second  Half  of  1992  *** 

store  •  I  JULY  1992  |  AUGUST  1992  |  SEPTEMBER  1992  |  OCTOBER  19 

store  *23  1111111111222222222233  1111111111222222222233  111111111122222222223  111111111 

store  <9012345678901234567890123456789011234567890123456789012345678901123456789012345678901234567890123456789012345678 
store  '27  28  29  30  31  32  33  34  35  36  37  38  39  40  41  42 

store  wkf+wk+Hk+tik-Hik+Hk+wk+wk+wk+wk+wkmtwk+iik+Hk+Hk+Hk+wk+jik+Hk+wk+wk+wkthank+Hk+Hk+wk+Hkthank  to  dtln  E92B 


***  Calendar  Headings  t  Grid  for  First  Half  of  1992  *** 

store  '  I  JANUARY  1993  |  FEBRUARY  1993  |  MARCH  1993  I  APRIL  199 

store  '2233  1111111111222222222233  1111111111222222222  1111111111222222222233  111111111 

store  <8901123456789012345678901234567890112345678901234567890123456781234567890123456789012345678901123456789012345678 
store  <1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16 

store  wkxiws^'Mik*«k*wk*wk+Hk-HJk+wk+«k*i(k+Hk-«*'H*-«i*f'tirk'H*'t«k'HA-H**«k+«k'H*ki»H*'H(k+wk  to  dtln_E93A 

***  Calerxiar  Headings  &  Grid  for  Second  Half  of  1992  *** 

store  <  I  JULY  1993  |  AUGUST  1993  |  SEPTEMBER  1993  I  OCTOBER  1' 

store  <223  1111111111222222222233  1111111111222222222233  111111111122222222223  11111111 

store  <8901234567890123456789012345678901123456789012345678901234567890112345678901234567890123456789012345678901234567 
store  <27  28  29  30  31  32  33  34  35  36  37  38  39  40  41  42 

store  wkf-f«k-ti*-M*'HHc*wk'H(k+i*+«k-Hric*wkiiMi<k+Hk+«k+wk+wk*«k'«dt+«k+«k-H*k+«kthank+wk+wk'H*-H(k  to  dtln  E93B 


201 

store  “PLACEMENT  =  <  1<" 

to  tConditl 

202 

store  “PLACEMENT  s  <  2<" 

to  tCondit2 

203 

store  “PUCEMENT  =  <  3<« 

to  tCondit3 

204 

store  “PUCEMENT  =  <  4<“ 

to  tCondit4 

__ 

pfi> 

store  “PUCEMENT  »  <  5<" 

to  tConditS 

store  “PUCEMENT  =  <  6'“ 

to  tCondit6 

varial 

lies 

207 

store  “PUCEMENT  «  <  7<“ 

to  tCondit7 

208 

store  “PUCEMENT  *  <  8<“ 

to  tCondit8 

209 

store  “PUCEMENT  =  <  9<“ 

to  tCondit9 

210 

store  “PUCEMENT  =  <10'" 

to  tconditIO 

211 

********* 

212 

213 

set  color  to 

214 

a  16,  18  SAY  • 

Printing  < 

215 

216 

—if  tShop  =  <X' 

217 

store  <PUTEN  UYDOUN  SCHEDULE<  TO  titlel 

218 

store  ‘SHOP  ASSEMBLY' 

to  title2 

219 

set  color  to  NtVr 

220 

a  7,  24  SAY  'Shop' 

221 

store  'SHOP*  to  body 

222 

do  PRT  UY 

223 

set  coTor  to  it*/r 

Conditio  fl 
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224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 


Un.,? 


&l  7,  24  SAY  'shop' 


if  table  =  X’ 

store  ‘PLATEN  LAYDOWN  SCHEDULE  TO  title 

store  'TABLE  #1'  to  title2 

set  color  to  w+/r 

a  8,  24  SAY  ‘Table  #1' 

store  ‘TABLE^to  body 

do  PRT_LAY 

set  color  to  W+/r 

a  8,  24  SAY  ITable  #1’ 

[  if 

if  tTable2  =  ‘X' 

store  PLATEN  LAYDOWN  SCHEDULE^TO  title 

store  ‘TABLE  #2°  to  title2 

set  color  to  w+*/r 

a  9,  24  SAY  'Table  #2’ 

store  ‘TABLE2’  to  body 

do  PRT-LAY 

set  cotor  to  w+/r 

a  9,  24  SAY  ‘Table  #2' 

I - endif 


— if  tArea_A  =  "X' 

store  'ON-  BLOCK  0/F  LAYDOWN  SCHEDULE  TO  titlel 
store  ‘AREA  ‘A"" to  title2 
set  color  to  w+/r 
a  7,  44  SAY  ‘Area  "A" 

store  '  Printing  Table  #2  ’to  tMEMOl 

store  ‘AREA  A'to  body 
do  PRT_LAY 
set  color  to  n+lr 
a  7,  44  SAY  ‘Area  "A”' 
endif 


i  f  tArea_B  =  ‘X’ 

store  ‘ON-BLOCK  0/F  LAYDOWN  SCHEDULE  TO  titlel 
store  ‘AREA  ‘B"°to  title2 
set  color  to  w+*/r 
a  8,  44  SAY  ‘Area  “B-l 

store  ^  Printing  Table  #2  to  tMEHOI 

store  ‘AREA-B'  to  body 
do  PRT_LAY 
set  color  to  w+/r 
a  8,  44  SAY  "Area  ‘  B"' 
endif 
enddo 


J 


<===retum 


*  PROCEDURE  PRT_LAY 

•  Prints  Time  spans  for  each  Table  Selected  • 


PRW  PRT_LAY 

store  O  to  X 
store  O  to  y 
set  device  to  print 
a  x,y  say  legal 
a  x,Y  say  normal-1 
a  x,y  say  PRT-1P18 
set  device  to  screen 

—if  t92A  =  ‘X’ 

set  device  to  screen 
set  color  to  9r+/r 
a  12,  35  say  '1992' 
set  color  to  w+/r 
a  13,  25  say  ‘Jan  >Jm  ^ 


pnnl  ic-W  k^wns 

as  selected 
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299  set  device  to  print 

299  store  dtin-A92A  to  LineA 

301  store  dtin-W2A  to  LineB 

302  store  dtin-C92A  to  Linec 

303  store  dtln-D92A  to  LineD 

304  store  dtin-E92A  to  LineE 

305  store  start92A-1  to  tSTART 

306  store  start92A+182  to  tCOMPLETE 

307  store  to  title3 

308  do  HEADiNG 

309  do  &B0DY 

310  set  device  to  screen 

311  set  color  to  gr+/r 

312  a  12,  35  say  '1992' 

313  set  color  to  W/r 

314  a  13,  25  say  'Jan->Jun" 

315  • - endlf 

316 

317  —if  t92B=  ‘X’ 

318  set  device  to  screen 

319  set  color  to  9r+*/r 

320  a  12,  35  say  ‘1992 

321  set  color  to  u+*/r 

322  a  14,  25  Say  'jut->Dec' 

323  set  device  to  print 

324  store  dtin  A92B  to  lineA 

325  store  dtln-B92B  to  lineB 

326  store  dtln-C92B  to  Linec 

327  store  dtln-D92B  to  lind) 

328  store  dtln-E92B  to  linsE 

329  store  start92B1  to  tSTART 

330  store  start92B+182  to  tCOMPLETE 

331  store  to  title3 

332  do  HEADING 

333  do  &B0DY 

334  set  device  to  screen 

335  set  color  to  grf/r 

a  12,  35  say  81992: 

336  set  cotor  to  bf+/r 

338  a  14,  25  say  'Jul->0ec* 

339  -  e  n  d  i  f 

340 

341  —if  t93A=  ‘X’ 

342  set  device  to  screen 

343  set  color  to  gr+Vr 

344  a  12,  40  say  '1993' 

345  set  color  to  u+*/r 

346  a  13,  25  say  'Jan->Jun' 

347  set  device  to  print 

348  store  dtln-A93A  to  lineA 

store  dtln-B93A  to  lineB 


350 

351 

352 

353 

354 

355 

356 

357 

358 

359 
340 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 


store  dtln-C93A  to  linec 
store  dtln-D93A  to  limo 
store  dtln-E93A  to  lineE 
store  start93A-1  to  tSTART 
store  start93A+IB2  to  tCCUPLETE 
store  '  to  title3 

do  HEADING 
do  &B0DY 

set  device  to  screen 
set  color  to  gr+/r 
a  12,  40  say  '1993' 
set  color  to  wi-Zr 
a  13,  25  say  'Jan->Jun' 

-  e  n  d  i  f 

if  t93B  =  ‘X’ 

set  device  to  screen 
set  color  to  gr+Vr 
a  12,  40  say  '1993' 
set  color  to  wt*/r 
a  14,  25  say  ‘Jul-^ec* 
set  device  to  print 
store  dtln-A93B  to  lineA 
store  dth-B93B  to  lineB 
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374  store  dtln_C93B  to  lineC 

375  store  dtln_093B  to  lineO 

376  store  dtln_E93B  to  UneE 

377  store  start93B-1  to  tSTART 

378  store  start93B+182  to  tCOMPLETE 

379  store  '  '  to  title3 

380  do  HEADING 

381  do  &S00r 

382  set  device  to  screen 

383  set  color  to  gr+/r 

384  a  12,  40  say  '1993' 

385  set  color  to  w<-/r 

386  a  14,  25  say  'Jul->0ec' 

387  - endif 

388 

389  <==retum 

390 

391 

392 

393  *  PROCEDURE  HEADING 

394  *  Prints  Titles  &  Date  Bar  Headings 

395  »;••**•••••*•****•**••***•••*•**»******, 

396 

397  PROC  HEADING 

398 

399  X  =  1 

400  a  x,y+27  say  BOLO_2+title1+nonnal_1 

401  a  x,y+27  say  '  ' 

402  a  x,y+90  say  BOtD_3+title2+nortnal_1 

403  a  x,y<^  say  '  ' 

404  x  =  x+1 

405  a  x,y  say  chr(201) 

406  a  x,y+1  say  replicate(chr(205),20) 

407  a  x,y+21  say  chr<203) 

408  a  x,yf22  say  replicate(chr(205),148) 

409  a  x,y+'171  say  'Printed  on  '+dtoc<dateO) 

410  a  x,y<-191  say  replicate(chr(205),13) 

411  a  x,yr204  say  chr(187) 

412  X  *  x-rl 

413  a  x,y  say  chr<186) 

414  a  x,yr10  say  'MOHTH/YEAR' 

415  a  x,y<-21  say  chr<186) 

416  a  x,yr22  say  lineA 

417  a  x,y«-204  say  chr<186) 

418  X  =  x+1 

419  a  x,y  say  chr<186) 

420  a  x,y+10  say  '  WEEK  NO' 

421  a  x,y+21  say  chr(186) 

422  a  x,y+22  say  lineO 

423  a  x,y+22  say  replicate<lineW,26) 

424  a  x,y+204  say  chr(186) 

425  X  =  x+1 

426  a  x,y  say  chr<186) 

427  a  x,y+21  say  chr(186) 

428  a  x,y+22  say  lineB 

429  a  x,y+22  say  replicate(lineU,26) 

430  a  x,y+204  say  chr(186) 

431  X  =  x+1 

432  a  x,y  say  chr(186) 

433  a  x,y+10  say  '  DAY' 

434  a  x,y+21  say  chr(186) 

435  a  x,y+22  say  lineC 

436  a  x,y+22  say  replicate(lineU,26) 

437  a  x,y+204  say  chr(186) 

438  X  =  x+1 

439  *a  x,y  say  chr(199) 

440  *a  x,y+1  say  replicate(chr<196>,20) 

441  *a  x,y+21  say  chr(215) 

442  *a  x,y+22  say  replicate(chr(196),182) 

443  *3  x,y+22  say  lineE 

444  *a  x,y+204  say  chr<182) 

445  *x  =  x+1 

446 

447 

448  <=— return 
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PROCEDURE  PLACEHNT 
Calculates  Table  Position  Placements 


PROC  PUCEMHT 


r 


go  top 

locate  for  .not.  table  =  '  ' 

do  while  .not.  eofO 

store  TABLE  to  tTABLE 
store  '  1'  to  tPLACE 
—do  case 

- case  TABLE  =  'SH' 

r— do  while  TABLE  =  tTABLE 

- do  case 

- case  tPLACE  =  '  1 • 

replace  PUCEHENT  with 
store  ‘  2'  to  tPLACE 
- case  tPLACE  =  '  2' 


store  *  3'  to  tPLACE 
;ase  tPLACE  =  '  3' 

replace  PLACEMENT  with  ‘  3‘ 
store  *  4'  to  tPLACE 
:ase  tPLACE  =  '  4' 

replace  PLACEMENT  with  •  4' 
store  •  5'  to  tPLACE 
ase  tPUCE  =  •  5* 

replace  PLACEMENT  with  ■  5' 
store  ‘  6*  to  tPLACE 
ase  tPLACE  =  ‘  6* 

replace  PUCEHENT  with  •  6' 
store  ‘  7'  to  tPUCE 
ase  tPUCE  =  '  7' 

replace  PUCEHENT  with  •  7' 
store  ‘  8'  to  tPUCE 
ase  tPLACE  =  •  8* 

replace  PUCEHENT  with  ■  8> 
store  '  9'  to  tPUCE 
ase  tPUCE  =  '  9' 

replace  PUCEHENT  with  •  9* 
store  MO*  to  tPUCE 
ase  tPUCE  -  *10* 

replace  PUCEHENT  with  ‘10* 
store  •  1*  to  tPUCE 


'  cntjCSSv 

skip 

enddo 


do  whi le  TABLE  =  tTABLE 
- do  case 

- case  tPUCE  =  •  1* 

replace  PUCEHENT  with 
store  *  2*  to  tPUCE 

- case  tPUCE  =  •  2* 

replace  PUCEHENT  with 
store  *  1*  to  tPUCE 

- endcase 

skip 

— enddo 


I - « 

I - enddo 


I— endcase 


<=3sreturn 


PROCEDURE  SHOP 

Chnn  I  JiwHnun 
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3a  store  *SH-00*  to  tFIiiD 

526  do  DIVIDE 

527  store  '  '  to  title4 

525  do  LIME 

529  store  tConditI  to  t_cond 

530  do  GAHTT_ln 

531  X  =  x+1 

532  store  BOLD  1+'  SH0P*+nonnal_1  to  title4 

533  do  LIME 

334  do  DATA  In 

535  X  =  x+r 

536  store  *  '  to  title4 

9I.WI  c  bvmiuiw<^  kw  b^VvMiu 

538  do  LINE 

539  do  GANTT_ln 

c/n  w  — 

A  —  A-*"  I 

541  store  ■  ASSEMBLIES  ■  to  title4 

542  do  LINE 

C£7  nATA  I  n 

uw  I  rt  ^11 

544  X  *  x+r 

545  store  ‘  '  to  title4 

CZZ.  ^ 

•swi  w  www«r«««  ww  fcw 

547  do  LINE 

548  do  GANTT_ln 

KAO  V  s  X'^1 

550  do  LINE 

551  do  DATA_ln 

CCO  V  3  y4.1 

r\  —  • 

553  store  tCondit4  to  t  cond 

554  do  LINE 

555  do  GAMTT  In 

556  X  =  x+i  “ 

557  do  LINE 

558  do  0ATA_ln 

559  X  =  x+1~ 

560  store  tCondit5  to  t  cond 

561  do  LINE 

562  do  GANTT_ln 

563  X  *  x+1 

564  do  LINE 

565  do  DATA_ln 

566  X  =  x+1 

567  store  tCondit6  to  t_cond 

568  do  LINE 

569  do  GANTT_ln 

570  X  =  x+1 

571  do  LINE 

572  do  DATA_ln 

573  X  =  x+1 

574  store  tCondit7  to  t  cood 

575  do  LINE 

576  do  GANTT_ln 

577  X  =  x+1 

578  do  LINE 

579  do  DATA_ln 

580  X  s  x+i 

581  store  tCooditS  to  t_cond 

582  do  LINE 

583  do  GANii  in 

584  X  =  x+1  ~ 

585  do  LINE 

586  do  DA7A_in 

587  X  =  x+1 

588  store  tCondit9  to  t_cond 

539  do  LINE 

590  do  GAMTT_ln 

591  X  =  x+1 

I  Tue 
uu  bine 

593  do  0ATA_ln 

594  X  »  x+1 

coc  (rATvjitlQ  to  t  cond 

5%  ^  LIME 

597  do  GAMTT_ln 

KOti  y  =  y+1 


*  Top  Line  (Dividing  Line)  * 
do  DIVIDE 

~  Line  1  (Top  Line  of  Scheduled  Work)  ~ 
store  *  '  to  title4 

do  LIME 

store  tconditi  to  t  cond 
do  GAHTT_ln 
X  =  x+1 

*  Line  2  (Informtion  Line  for  Gantt  Line  #1  ) 

store  B0LD_1+'  01-01 '+noniiBl  1  to  titled 

do  LINE 

store  tconditi  to  t  cond 
do  DATA_ln 

X  »  X^1 

*  Line  3  (Line  #2  of  Gantt  Schedule  }  * 

store  "  54*  x  60*  "to  title4 


store  tCondit2  to  t  cond 
do  GAMTT_ln 
X  *  x+1 

*  Line  4  (Infonaation  for  Gantt  Line  #2)  * 

store  '  '  to  title4 

do  LINE 

store  tCondit2  to  t  cond 
do  DATA_ln 
X  =  x+1 

*  Line  5  (Dividing  Line)  » 
da  DIVIDE 

***  POSITION  01-02  ***• 


*  Line  1  (Top  Line  of  Scheduled  Work)  * 

store  *  '  to  title4 

do  LINE 

store  tconditi  to  t  cond 
do  GANTT_ln 
X  =  x+1 

*  Line  2  (Information  Line  for  Gantt  Line  #1  ) 
store  BOLD_1+'  01-02'+nonnal  1  to  title4 

do  LINE 

store  tconditi  to  t_cond 
do  data  In  ~ 

X  »  x+1 

*  Line  3  (Line  #2  of  Gantt  Schedule  )  * 

11  C/.  I  V  II  *2*1  «/. 

do  LINE 

Store  tCondit2  to  t  cond 


OO  bXNl  l_in 

X  »  x+1 

*  Line  4  (Information  for  Gantt  Line  #2)  * 

store  '  '  to  title4 

do  LINE 

store  tCondit2  to  t_cond 
do  DATA_ln 
X  »  x+1 

*  Line  5  (Dividing  Line)  * 
do  DIVIDE 
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674 

675  ***  POSITIOM  01-03  »** 

676  store  '01-03'  to  tFIND 

677  •  Line  1  (Top  Line  of  Scheduied  Work)  • 

678  store  i  to  title4 

679  do  LiNE 

680  store  tConditI  to  t_cond 

681  do  GANTT_ln 

682  X  =x+1 

683  *  Line  2  (information  Line  for  Gantt  Line  #1  ) 

684  store  BOLD_i+#  01-03'+  normalj  to  title4 

685  do  LiNE 

686  store  tConditi  to  t-cond 

687  do  DATAJn 

688  X  =  X+i 

689  *  Line  3  O-ine  #2^  of  Gantt  Scheduie  )  * 

690  store  ^  11  to  titie4 

691  &  LiNE 

692  store  tCondit2  to  t-cord 

693  do  GAHTT-in 

694  X  =  X+i 

695  *  Line  4  (Information  fop  Gantt  Line  #2)  * 

696  store  i  ‘  to  title4 

697  do  LiNE 

698  store  tConditZ  to  t_cood 

699  do  DATA-in 

700  X  =  X+i 

701  •  Line  5  (Dividing  Line)  • 

do  DiViDE 

702 

704  **•  POSITION  01-04  *** 

705  Store  '01-04'to  tFiND 

706  •  Line  1  (Top  Line  of  Scheduled  Work)  * 

707  store  to  title4 

708  do  LINE 

709  store  tConditi  to  t_cond 

710  do  GANTT-in 

711  =  X+I 

712  *  Line  2  (Information  Line  for  Gantt  Line  #1  ) 

713  store  BOLD-l+'0l-04  '+normal-l  to  title4 

714  do  LINE 

715  store  tCmditI  to  t_cond 

716  do  DATAJn 

717  X  =  X+I 

718  •Line  3  (Line  #2_of  Gantt  Schedule  )  * 

719  store  "  ^  "to  title4 

720  do  LINE 

721  store  tCondit2  to  t_cond 

722  do  GANTT-in 

723  X  =  X+I 

724  *  Line  4  (Information  for  Gantt  Line  #2)  • 

725  store  1  '  t  o  t  i  1 1  e  4 

726  do  LINE 

727  Store  tCondit2  to  t_cond 

728  do  DATAJn 

729  X  =  X+I 

730  •  Line  5  (Dividing  Line)  * 

731  do  DIVIDE 

732 

733  ~  POSITION  01-05  •* 

734  store  '01-05'to  tFIND 

735  •  Line  1  (Top  Line  of  Scheduled  Work)  • 

736  store  to  title4 

737  do  LINE 

738  store  tconditI  to  t_cond 

739  do  GANTT-in 

740  X  =  X+I 

741  •  Line  2  (Information  Line  for  Gantt  Line  #1  ) 

742  store  SOLO  1+'  01-05*+nonnal_1  to  title4 

743  do  LINE 

744  store  tconditI  to  t-cond 

745  do  DATA-in 

746  X  =  X+1 

747  *  Line  3  (Line  #2  of  Gantt  .Schedule  )  * 

748  store  title 4 
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749  do  LINE 

750  store  tCondit2  to  t_cond 

751  do  GANTT-in 

752  X  =  X+l 

753  *  Line  4  (Information  for  Gantt  Line  #2)  * 

754  store  a  '  t  o  t  i  1 1  e  4 

755  do  LIME 

756  store  tCondit2  to  t_cond 

757  do  DATAJn 

758  X  =  X+1 

759  •  Line  5  (Dividing  Line)  * 

760  do  DIVIDE 

761 

762  PDSITIDN  01-06  *** 

763  store  101-06S  to  tFINO 

764  •  Line  1  (Top  Line  of  Scheduled  Work)  * 

765  store  '  'to  title4 

766  do  LINE 

767  Store  tConditI  to  t-cond 

768  do  GANTT-in 

769  X  X  X+l 

770  *  Line  2  (Information  Line  for  Gantt  Line  #1  ) 

771  store  BOLO-I+’01-06  '+ normal  I  to  title4 

772  do  LINE 

773  store  tconditI  to  t-cond 

774  do  DATAJn 

775  X  =  X+1 

776  •  Line  3  (Line  #2  of  Gantt  Schedule  )  * 

777  store  II  54'  X  60)1  "  to  title4 

778  do  LINE 

779  store  tCondit2  to  t_cod 

780  do  GANTT_ln 

781  X  =  X+l 

782  •  Line  4  (Information  for  Gantt  Line  #2)  * 

753  store  I  'to  title4 

784  do  LINE 

785  store  tCondit2  to  t-cond 

786  do  DATA-in 

787  X  =  x(+1 

788  •  Line  5  (Dividing  Line)  • 

789  do  DIVIDE 

790 

791  ***  POSITION  01-07  *** 

792  store  '01-07'to  tFIND 

793  •  Line  1  (Top  Line  of  Scheduled  work)  • 

794  store  I  'to  title4 

795  do  LINE 

796  store  tConditI  to  t-cond 

797  do  GANTT_ln 

798  X  =  X+1 

799  *  Line  2  (Information  Line  for  Gantt  Line  #1  ) 

800  store  BOLD  1+'  01-07  normai_l  to  titie4 

801  do  LINE 

802  store  tConditI  to  t-cod 

803  do  DATA_ln 

804  X  =  x+1 

805  •  Line  3  (Line  #2  of  Gantt  Schedule  )  • 

806  store  "  ^4  x  60,  TL  to  title4 

807  do  LINE 

808  store  tCondit2  to  t_cond 

809  do  GANTT  in 

810  X  =  X+1 

811  *  Line  4  (Information  for  Gantt  Line  #2)  * 

812  store  to  titie4 

813  do  LINE 

814  store  tcondit2  to  t_cond 

815  do  DATA-in 

816  X  xX+1 

817  •  Line  5  (Dividing  Line)  * 

818  do  DIVIDE 

819 

820  ***  POSITION  01-08  *** 

821  store  101-081  to  tFIND 

822  •  Line  1  (Top  Line  of  Scheduled  Work) 

823  store  '  '  to  title4 
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824  do  LINE 

825  store  tConditI  to  t_cond 

826  do  GANTTJn 

827  X  =  X+l 

828  •  Line  2  (Information  Line  for  Gantt  Line  #1  ) 

829  store  SOLD-1+1  01-08’+normal_l  to  title4 

830  do  LINE 

831  store  tConditI  to  t-cord 

832  do  DATA_ln 

833  X  =  X+l 

834  *  Line  3  (Line  #2  of  Gantt  Schedule  )  * 

835  store  "  54'  x  60'  to  title4 

836  do  LINE 

837  store  tCondit2  to  t_cond 

838  do  GANTT_ln 

839  X  =  X+l 

840  •  Line  4  (Information  for  Gantt  Line  #2)  * 

841  store  '  '  to  titie4 

842  do  LINE 

243  store  tCondit2  to  t_cond 

844  do  DATAJn 

845  X  =  X+l 

846  *  Line  5  (Dividing  Line)  • 

847  do  DIVIDE 

848 

849  ***  POSITION  01-09  *** 

850  store  '01-09'  to  tFIND 

851  *  Line  1  (Top  Line  of  Scheduled  Work)  * 

852  store  ‘‘  '  to  title4 

853  do  LINE 

854  store  tConditI  to  t_cmd 

855  do  GANTT-in 

856  X  =x+1 

857  •  Line  2  (Information  Line  for  Gantt  Line  #1  ) 

858  store  SOLD_I+'01 -09’+normal_l  to  title4 

859  do  LINE 

860  store  tConditI  to  t-cond 

861  do  DATA-in 

862  X  =  X+l 

863  *  Line  3  (j-i,ne  #2  of  Gantt  Schedule  )  • 

864  store  "  54  x  60 ,  "  to  titie4 

865  do  LINE 

866  store  tcondit2  to  t_cond 

867  do  GANTT_ln 

868  X  =  X+l 

869  •  Line  4  (Information  for  Gantt  Line  #2) 

870  store  to  title4 

871  do  LINE 

872  store  tcondit2  to  t-cond 

873  do  DATA_ln 

874  X  =  X+l 

875  *  Line  5  (Dividing  Line)  • 

876  do  DIVIDE 

877 

878  *  POSITION  01-10  •- 

879  store  01-10'  to  tFIND 

880  *  Line  1  (Top  Line  of  Scheduied  Work)  * 

881  store  '  to  titie4 

882  do  LINE 

883  store  tconditI  to  t-cond 

884  do  GANTT_ln 

885  X  =  X+1 

886  *  Line  2  (Information  Line  for  Gantt  Line  #1  ) 

887  store  SOLD_l+'01-IO'+normal  1  to  title4 

888  do  LINE 

889  store  tconditI  to  t_cond 

890  do  DATAJn 

891  X  =  X+l 

892  *  Line  3  U-ine  #2,  of  Gantt  Schedule  )  • 

893  store  "  54^  5t)'  to  title4 

894  do  LINE 

895  store  tCondit2  to  t-cond 

896  do  GANTTJn 

897  X  =  X+l 

898  *  Line  4  (Information  for  Gantt  Line  #2)  * 
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899  store  '  '  to  title4 

900  do  LINE 

901  store  tCondit2  to  t_cond 

902  do  DATA_ln 

903  X  =  x+1 

904  *  Line  5  (Bottom  Line)  * 

905  do  BOTTOM 

906  eject 

907 

908  <===return 


909 

910 

911 

912 

913  *  PR0(»MJRE  TABLE2  * 

914  *  Table  2  Laydoun  Format  * 

915  *»»»»•**•*•»•*****»*•••*•**•••••»**»*******••*• 

916 


917  PROCTABLE2 

918 

919  ***  POSITION  02-01  *** 

920  store  *02-01*  to  tFINO 

921  *  Top  Line  (Dividing  Line)  * 

922  do  DIVIDE 

923  *  Line  1  (Top  Line  of  Scheduled  Work)  * 

924  store  *  *  to  title4 

925  do  LINE 

926  Store  tConditI  to  t  cond 

927  do  GAHTT_ln 

928  X  =  X+1  ~ 

929  *  Line  2  (Information  Line  for  Gantt  Line  #1  ) 

930  store  BOLD  1+*  02-01 '+normal  1  to  title4 

931  do  LINE 

932  store  tConditI  to  t_cond 

933  do  0ATA_ln 

934  X  »  x+l” 

935  *  Line  3  (Line  #2  of  Gantt  Schedule  )  * 

936  store  **  40*  X  50*  "  to  title4 

937  do  LINE 

938  store  tCondit2  to  t  cond 

939  do  GAHTT_ln 

940  X  *  X+1 

941  *  Line  4  (Information  for  Gantt  Line  #2)  ♦ 

942  store  *  *  to  title4 

943  do  LINE 

944  store  tCondit2  to  t_cond 

945  do  0ATA_ln 

946  X  =  x+1~ 

947  *  Line  5  (Dividing  Line)  * 

948  do  DIVIDE 

949 

950  ***  POSITION  02-02  *** 

951  store  '02-02' to  tFIND 

952  •  Line  1  (Top  Line  of  Scheduled  Work)  * 

953  store  to  title4 

954  do  LINE 

955  store  tConditI  to  t-cond 

956  do  GANTT-in 

957  X  =  X+1 

958  *  Line  2  (Information  Line  for  Gantt  Line  #1  ) 

959  store  BOLD-1+1  02-02  '+normal_l  to  titie4 

960  do  LINE 

961  store  tConditI  to  t-cond 

962  do  DATAJn 

963  X  =  X+1 

964  *  Line  3  (.Line  #2  of  Gantt  Schdule  )  * 

965  store  "  40'  x  50'  ,o  title4 

966  do  LINE 

967  store  tCondit2  to  t-cond 

968  do  GANTT-in 

969  X  =  X+1 

970  •  Line  4  (Information  for  Gantt  Line  #2)  * 

971  store  '  '  to  title4 

972  do  LINE 

973  store  tCondit2  to  t-cond 
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974  do  DATA-in 

975  X  =  X+1 

976  •  Line  5  (Dividing  Line)  • 

977  do  DiViDE 

978 

979  *  POSiTiON  02-03  *** 

980  store  '02-03'  to  tFiND 

981  •  Line  1  (Top  Line  of  Scheduid  Work)  • 

982  store  ';  to  title4 

983  do  LiNE 

984  store  tConditi  to  t_cond 

985  do  GANTT_ln 

986  X  =  X+i 

987  •  Line  2  (information  Line  for  Gantt  Line  #1  ) 

988  store  BOLDJ+i  02-03'  +normai_i  to  title4 

989  do  LiNE 

990  store  tConditI  to  t_cond 

991  do  DATA-tn 

992  X  =  X+i 

993  •  Line  3  (Line  #2  of  Gantt  Scheduie  )  • 

994  store  "  '*0'  ^ 

995  do  LiNE 

996  store  tCondit2  to  t-cond 

997  do  GANTT_ln 

998  X  =  X+i 

999  •  Line  4  (information  for  Gantt  Line  #2)  • 

1000  store  '  '  to  titie4 

1001  do  LiNE 

1002  store  tCondit2  to  t-cond 

1003  do  DATA-in 

1004  X  =  X+i 

1005  *  Line  5  (Dividing  Line)  • 

1006  do  DiViDE 

1007 

1008  ***  POSiTiON  02-04  *** 

1009  store  '02-04'  to  tFiND 

1010  •  Line  1  (Top  Line  of  Scheduied  Work)  • 

1011  store  to  title4 

1012  do  LiNE 

1013  store  tConditi  to  t_cond 

1014  do  GANTT-in 

1015  X  =  X+i 

1016  •  Line  2  (information  Line  for  Gantt  Line  #1  ) 

1017  store  BOLD-i+'02-04  '+normai  i  to  title4 

1018  do  LiNE 

1019  store  tConditi  to  t_cond 

1020  do  DATA-in 

1021  X  =  X+i 

1022  •  Line  3  (Line  #2  of  Gantt  Spheduie  )  * 

1023  store  "  40'xf0'  ^  to  title4 

1024  do  LiNE 

1025  store  tCondit2  to  t_cond 

1026  do  GANTT-in 

1027  X  =  X+i 

1028  *  Line  4  (information  for  Gantt  Line  #2)  * 

1029  store  '  'to  title4 

1030  do  LiNE 

1031  store  tCondit2  to  t_cond 

1032  do  DATA-in 

1033  X  =  X+i 

1034  •  Line  5  (Dividing  Line)  * 

1035  do  DiViDE 

1036 

1037 

1038  ***  POSiTiON  02-05  •* 

1039  store  '02-05'  to  tFiND 

1040  *  Line  1  (Top  Line  of  Scheduied  Work)  * 

1041  store  '  '  to  titie4 

1042  do  LiNE 

1043  store  tCoditi  to  t-cond 

1044  do  GANTTJn 

1045  X  =  X+i 

1046  •  Line  2  (information  Line  for  Gantt  Line  #1  ) 

1047  store  BOLD-1 +’  02-05’+normai  i  to  title4 

1048  do  LiNE 
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1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 
1123 


store  tConditI  to  t-cond 
do  DATA-in 
X  =  X+l 

*  Line  3  (Line  #2  of  Gantt  Schedule  )  • 

store  "  '*0'  ^  50'  "  to  title4 

do  LINE 

store  tCondit2  to  t-cond 
do  GANTT-in 
X  =  X+l 

*  Line  4  (Information  for  Gantt  Line  #2)  • 

store  to  titie4 

do  LINE 

store  tcondit2  to  t_cond 
do  DATA-in 
X  =  X+l 

*  Line  5  (Bottom  Line)  * 
do  BOnOM 

eject 

<===return 


PROCEDURE  AREAJt  * 

Area  A  Laydown  Format  * 


PROC  AREA_A 

***  POSITION  A-1  *** 

store  A-01  to  tFIND 
do  DIVIDE 

store  to  title4 

do  LINE 

store  tconditI  to  t_cond 
do  GANTT-in 
X  =  X+l 

store  BOLD-I+'  A-1  ‘+normal_l  to  title4 
do  LIME 

store  tconditI  to  t-cond 
do  DATA-in 
X  =x+1 

store  ^*5  X  60'  "  to  title4 

do  LINE 

store  tCondit2  to  t_cond 
do  GANTT-in 
X  =  X+l 

store  '  to  title4 

do  LINE 

store  tcondit2  to  t-cond 
do  DATA-in 
X  =  X+l 
do  DIVIDE 

***  POSITISIN  A-2  *** 

store  'A-02'  to  tFIND 

store  '  '  to  title4 

do  LINE 

store  tconditI  to  t_cond 
do  GANTT-in 
X  =  x+1 

store  BOLD-1 +:  A-2  '+normal  1  to  title4 

do  LINE 

store  tconditI  to  t_cond 
do  DATA-in 
X  =  X+l 

store  ''5'  ^  55'  title4 

do  LINE 

store  tcondit2  to  t-cond 
do  GANTT_ln 
X  =  X+l 

store  '  to  title4 

do  LIME 

store  tCondit2  to  t-cond 
do  DATA-in 
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1124  X  =  X+l 

1125  do  DIVIDE 

1126 

1127  ***  POSITION  A-3  •  * 

1128  store  '  A-03'to  tFIND 

1129  store  '  '  to  title4 

1130  do  LINE 

1131  store  tConditI  to  t_cond 

1132  do  GANTT-ln 

1133  X  =  X+l 

1134  store  BOLDJ+'  A.3  l+normal  I  to  title4 

1135  do  LINE 

1136  store  tconditI  to  t-cond 

1137  do  DATA-in 

1138  X  =  X+l 

1139  store  "  ^  "  to  title4 

1140  do  LINE 

1141  Store  tCondit2  to  t_cond 

1142  do  GANTTJn 

1143  X  =  X+l 

1144  store  to  title4 

1145  do  LINE 

1146  store  tCondit2  to  t_cond 

1147  do  DATAJn 

1148  X  =  X+l 

1149  do  DIVIDE 

1150 

1151  ***  POSITION  A-4  *** 

1152  store  A-04'  to  tFIND 

1153  store  '  '  to  title4 

1154  do  LINE 

1155  store  tConditI  to  t_cond 

1156  do  GANTT-in 

1157  X  =  X+l 

1158  store  BOLD_l+'  A. 4  l+normal  to  title4 

1159  do  LINE 

1160  store  tConditI  to  t_cond 

1161  do  DATA-in 

1162  X  =  X+l 

1163  store  "  4°'  60'  "  to  title4 

1164  do  LINE 

1165  store  tCondit2  to  t_cond 

1166  do  GANTT-ln 

1167  X  =  X+l 

1168  store  '  '  to  title4 

1169  do  LINE 

1170  store  tCondit2  to  t_cond 

1171  do  DATAJn 

1172  X=X+I 

1173  do  DIVIDE 

1174 

1175  ***  POSITION  A-5  *** 

1176  store  'A-05'  to  tFIND 

1177  store  'to  title4 

1178  do  LINE 

1179  store  tConditI  to  t_cond 

1180  do  GANTT-ln 

1181  X  =  X+l 

1182  store  BOLDJ+'  ^-5  l+normal  to  title4 

1183  do  LINE 

1184  store  tConditI  to  t_cond 

1185  do  DATA-in 

1186  X  =  X+l 

1187  store'  x  60  "  to  title4 

1188  do  LINE 

1189  store  tcondit2  to  t-cond 

1190  do  GANTT  In 

1191  X  =  X+l 

1192  store  to  title4 

1193  do  LINE 

1194  store  tCondit2  to  t_cond 

1195  do  DATA-in 

1196  X  =  X+l 

1197  do  DIVIDE 

1198 


1199 

***  POSITION  A-6  *** 

1200 

store  '  A-(06'  to  tFIND 

1201 

store  '  '  to  title4 

1202 

do  LINE 

1203 

store  tconditi  to  t-cond 

1204 

do  GANTT  In 

1205 

X  =  X+l 

1206 

store  BOLD-1+'  ^-6  l+normal  to 

title4 

1207 

do  LINE 

1208 

store  tCondIt  1  to  t  cond 

1209 

do  DATA  In 

1210 

X  =X+1 

1211 

store  ''O'  >'00'  title4 

1212 

do  LINE 

1213 

store  tCondit2  to  t_cond 

1214 

do  GANTT-in 

1215 

+ 

X 

II 

X 

1216 

store  to  title4 

1217 

do  LINE 

1218 

store  tCondit2  to  t-cond 

1219 

do  DATA-in 

1220 

X  =  x+1 

1221 

1222 

do  DIVIDE 

1223 

***  POSITION  A-7  *** 

1224 

store  A-07'  to  tFIND 

1225 

store  #  'to  title4 

1226 

do  LINE 

1227 

store  tconditi  to  t  cond 

1228 

do  GANTT  In 

1229 

x  =  X+l 

1230 

store  BOLD-I+'  ^.7  l+normal  1  to 

title4 

1231 

do  LINE 

1232 

store  tconditi  to  t-cond 

1233 

do  DATA-in 

1234 

x  =  X+l 

1235 

store  30'  '^OO'  to  title4 

1236 

do  LINE 

1237 

store  tCondit2  to  t  cond 

1238 

do  GANTT_ln 

1239 

x  =  x+1 

1240 

store  to  title4 

1241 

do  LINE 

1242 

store  tCondit2  to  t_cond 

1243 

do  DATA-in 

1244 

x  =  X+l 

1245 

1246 

do  DIVIDE 

1247 

*“  POSITION  A-8  *** 

1248 

store  '  A-08'  to  tFIND 

1249 

store  to  title4 

1250 

do  LINE 

1251 

store  tconditi  to  t-cond 

1252 

do  GANTT  in 

1253 

x=x+r 

1254 

store  BOLD-1 +'  ^-8  '+normal  to 

title4 

1255 

do  LINE 

1256 

store  tconditi  to  t-cond 

1257 

do  DATA-in 

1258 

x  =  X+1 

1259 

store  '*3'  ^  "  to  title4 

1260 

do  LINE 

1261 

store  tCondit2  to  t-cond 

1262 

do  GANTT-in 

1263 

x  =  X+1 

1264 

store  to  title4 

1265 

do  LINE 

1266 

store  tCondit2  to  t_cond 

1267 

do  DATA-in 

1268 

X  =  X+l 

1269 

do  BOnOM 

1270 

1271 

eject 

1272 

1273 

<=.. return 
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1274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 
1334 

335 

336 

1337 

1338 

339 

340 

341 

1342 

1343 

1344 

1345 
346 

1347 

1348 


PROC  AREA_B 

***  POSITION  B-1  •  * 

store  B-01  'to  tFIND 
do  DIVIDE 

store  to  title4 

do  LINE 

store  tCondItl  to  t-cond 
do  GANTTJn 
X  =  X+l 

store  BOLD_l+  B-1  ‘+normal_l  to  tltle4 
do  LINE 

store  tCondItl  to  t_cond 
do  DATA_ln 

X  =  X+l 

store  '*0'  ^  to  title4 

do  LINE 

store  tCmdlt2  to  t_cond 
do  GANTT-in 
X  =  X+l 

store  '  to  title4 

do  LINE 

store  tCondit2  to  t-cond 
do  DATA-in 
X  =  X+l 
do  DIVIDE 

***  POSITION  B-2  *** 
store  E-02'  to  tFIND 
store  to  title4 

do  LINE 

store  tconditl  to  t_cond 
do  GANTT-in 
X  =  X+l 

store  BOLD-I+'  l+normal  to  title4 

do  LINE 

store  tconditl  to  t_cond 
do  DATA_ln 
X  =  X+1 

store  ^  to  title4 

do  LINE 

store  tCondit2  to  t_cond 
do  GANTT_ln 
X  =  X+l 

store  to  title4 

do  LINE 

store  tCondit2  to  t_cond 
do  DATA_ln 
X  =  X+l 
do  DIVIDE 

***  POSITION  B-3 
store  B-03  to  tFIND 
store  to  title4 

do  LINE 

store  tconditl  to  t_cond 
do  GANTT-in 
X  =  X+l 

store  BOLD  1+'  B-3  l+normal  I  to  title4 

do  LINE 

store  tconditl  to  t_cond 
do  DATA_ln 

X  =  X+l 

store  40'  X  60'  to  title4 
do  LINE 

store  tCondit2  to  t-cond 
do  GANTT_ln 
X  =  X+1 

store  to  title4 
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1349  do  LIME 

1350  store  tCondit2  to  t-cond 

1351  do  DATAJn 

1352  X  =  X+1 

1353  do  DIVIDE 

1354 

1355  ***  POSITION  B-4  *** 

1356  store  B-04'  to  tFIND 

1357  store  to  tltle4 

1358  do  LIME 

1359  store  tConditI  to  t-cond 

1360  do  GANTT-in 

1361  X  =  X+l 

1362  store  BOLD-I+'  ^.4  l+normal  I  to  title4 

1363  do  LINE 

1364  store  tConditI  to  t-cond 

1365  do  DATA-ln 

1366  X  =  X+1 

1367  store  40'  x  60'  to  tittie4 

1368  do  LINE 

1369  store  tCondit2  to  t-cond 

1370  do  GANTTJn 

1371  X  =  X+1 

1372  store  to  tltle4 

1373  do  LINE 

1374  store  tcondit2  to  t_cond 

1375  do  DATA_ln 

1376  X  =  X+1 

1377  do  DIVIDE 

1378 

1379  ***  POSITION  B-5  *** 

1380  Store  B-05'tO  tFIND 

1381  store  to  tltle4 

1382  do  LINE 

1383  store  tconditI  to  t_cond 

1384  do  GANTT-in 

1385  X  =  X+1 

1386  store  BOLD-I+  ^-5  l+normal  1  to  title4 

1387  do  LINE 

1388  store  tconditI  to  t-cond 

1389  do  DATA-in 

1390  X  =  X+1 

1391  store  x  60'  "  to  title4 

1392  do  LINE 

1393  store  tCondit2  to  t_cond 

1394  do  GANTT.in 

1395  X  =  X+1 

1396  store  to  title4 

1397  do  LINE 

1398  store  tCondit2  to  t_cond 

1399  do  DATA-ln 

1400  X  =  X+1 

1401  do  DIVIDE 

1402 

1403  ***  POSITION  B-6  •- 

1404  Store  B-06'  to  tFIND 

1405  store  to  title4 

1406  do  LINE 

1407  Store  tconditI  to  t_cond 

1408  do  GANTT-in 

1409  X  =  X+1 

1410  store  BOLD-1 +'  ^-6  l+normal  1  to  title4 

1411  do  LINE 

1412  store  tCoditI  to  t_cond 

1413  do  DATAJn 

1414  X  =  X+1 

1415  store  x  60'  "  to  title4 

1416  do  LINE 

1417  store  tCondlt2  to  t_cond 

1418  do  GANTTJn 

1419  X  =  X+1 

1420  store  1  to  title4 

1421  do  LINE 

1422  store  tCondlt2  to  t_cond 

1423  do  DATA-in 


SP8-LAY.PRG  Formated  by  dANALYST  V7.3a  March  24,  19929:50  AM  Page  20 


1424  X  =  X+1 

1425  do  DIVIDE 

1426 

1427  ***  POSITION  B-7  “* 

1428  store  '  B-07'  to  tFIND 

1429  store  '  I  to  title4 

1430  do  LINE 

1431  store  tConditI  to  t-cond 

1432  doGANTT-ln 

1433  X  =  X+l 

1434  Store  BOLDJ+'  ^-7  l+normal  I  to  title4 

1435  do  LINE 

1436  store  tConditI  to  t_cond 

1437  do  DATA-in 

1438  X  =  X+1 

1439  store  '*'0-  ^  60'  1  to  title4 

1440  do  LINE 

1441  Store  tCondit2  to  t_cond 

1442  do  GANTT-in 

1443  X  =  X+1 

1444  Store  '  I  to  title4 

1445  do  LINE 

1446  store  tCondit2  to  t-cond 

1447  do  DATAJn 

1448  X  =  X+1 

1449  do  DIVIDE 

1450 

1451 

1452  ***  POSITION  B-8  * 

1453  store'  6-08' to  tFIND 

1454  store  '  '  to  title4 

1455  do  LINE 

1456  store  tconditI  to  t_cond 

1457  do  GANTTJn 

1458  X  =  X+1 

1459  store  BOLD-I +'  ^.8  '+normal  1  to  title4 

1460  do  LINE 

1461  store  tConditI  to  t_cond 

1462  do  DATA-in 

1463  X  =  X+1 

1464  store  "  ^6  ^  6®  "  to  title4 

1465  do  LINE 

1466  store  tCondit2  to  t_cond 

1467  do  GANTTJn 

1468  X  =  X+1 

1469  store  '  '  to  title4 

1470  do  LINE 

1471  Store  tCondit2  to  t_cond 

1472  do  DATA-in 

1473  X  =  X+1 

1474  doBOTTOM 

1475  eject 

1476  <==retum 

1477 

1478 


1479 

***** 

1480 

* 

PROCEDURE  BOTTOM 

* 

1481 

1482 

* 

Prints  Bottom  Line  of  Format 

* 

HMir*** 

1483 

1484  PROC  BOTTOM 

1485 

1486  a  x,y  say  chr<200> 

1487  a  x,y+1  say  replicate<chr(205),20) 

1488  a  x,y+21  say  chr{202) 

1489  a  x,y<-22  say  replicate(chr(205),8) 

1490  a  x,y«-30  say  *  X  =  M/V  WELL  PLAHHED  ' 

1491  a  x,y*-72  say  replicate(chr(205),132) 

1492  a  x,y<-204  say  chr(188> 

1493  X  =  x+1 

1494 

1495  do  LEGEND 

1496 

1497  <=retum 

1498 
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PROCEDURE  GANTT  In 

•  Prints  a  Gantt  Bar  Line  in  a  Laydoun  Format  • 


PROC  GANTT  in 
go  top 

store  '  '  to  too 
SEEK  tFIKD 
-if  .not.  eofO 

, - do  while  TABLE  =  tFIND 

I - if  LFDATE  >  tSTART  .and.  LSOATE  <  tCOHPLETE 

I  I  store  ‘Y*  to  too 
<=z<=<==exi  t 


I - do  while  TAE 

I - if  LFDAl 

I  I  stor 
<=z<=<==exit 
I  I  else 

<ZSS<SSS<=S<=S3 

I  I - erxii 

skip 

' - endif 

- enddo 


I  I  I - if  LSDATE  >  tCOHPLETE 

<zss<szs<=s<=szexi  t 

I  I - erxiif 

skip 


-if  too  =  'Y' 

- do  while  LFDATE  >  tSTART  .and.  LSOATE  <  tCOHPLETE  .and.  TABLE  =  tFIHO 

- if  LSOATE  <=  LFDATE 

- if  &t_cond 

- do  case 

- case  substr(ID,2,2)  =  '71' 

store  chr(219)  to  tGANTT 

- case  sijbstr(ID,2,4)  =  *7251' 

store  chr(202)  to  tGANTT 
—case  sub6tr(ID,2,4)  =  '7252' 

I  store  chr<203)  to  ttJAHTT 

- case  sub6tr(I0,2,4)  =  '7254' 

store  chr(178)  to  tGAHTT 
endcaie 

y - if  LSOATE  >  tSTART 

- if  LFOATE  <  tCOHPLETE 

a  x,y+21+(LS0ATE-tSTART)  say  replicate(tGAHTT,LFDATE-LS0ATE+1) 

- if  tCOHPLETE-LFDATE  <  6 

a  x,y+22+(183)  say  SIZE 

- else 

a  x,y+22+<LS0ATE-tSTART)+<LFDATE-LS0ATE)  say  SIZE 
endif 

- else 

a  X,y+21+(LS0ATE-tSTART)  say  replicate(tGAHTT,tCOHPLETE-LSOATE) 
a  x.y-ZZ+dSS)  say  SIZE 

- endif 

-  else 

a  x,y+22  say  replicate(tGANTT,LFDATE-tSTART) 
a  x,y*22+(LFDATE-tSTART)  say  SIZE 
I— endif 
- endif 


<===return 


PROCEDURE  0ATA_ln 

Prints  a  Data  Infonaation  Line  in  a  Laydown  Format 
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1574 

1575 

1576  p- 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620  I— 

1621 
1622 

1623  <= 

1624 

1625 

1626 

627 

628 
629 
.630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642  <== 

1643 

1644 

1645 

646 

647 

648 


store  ‘  '  to  too 
SEEK  tFIND 
-if  .not.  eofO 

I - do  while  TABLE  =  tFIND 

I - if  LFDATE  >  tSTART  .and.  LSOATE  <  tCOMPLETE 

I  I  store  *Y'  to  too 
<=<==<=exit 


I - do  while  T 

I 

I  I  else 

I  I 

endif 
I - enddo 


-if  too  =  'Y' 

- do  whi le  LFDATE  >  tSTART  .and.  LSOATE  <  tCOMPLETE  .and.  TABLE  =  tFIND 

- if  LSDATE  <=  LFDATE 

- if  &t_cond 

- if  LSOATE  >  tSTART 

- if  LFOATE  <  tCOMPLETE 

- if  substr(I0,6,3)  <  '500' 

a  x,y+21+<LS0ATE-tSTART>  say  nonnal_2+substr(I0,1,1)+'  A2'+'-'+substr(ID,6,3)+nonnal  1 

- else 

a  x,y<-21+(LS0ATE-tSTART)  say  norma l_2+sijbstr( ID,  1,1)+'  A1'+'-'+substr(ID,6,3)+normal_1 
- endif 

a  x,y+21+(LSOATE-tSTART)  say  '  • 

else 

- if  tCOMPLETE-LSOATE  >  8 

- if  substrf 10,6,3)  <  '500' 

a  x,y+21+(LS0ATE-tSTART)  say  norma l_2+sijbstr( ID,  1,1)+'  A2'+'-'+sufastr(ID,6,3)+norn 
else  ~ 

a  x,y+21+(LSOATE-tSTART)  say  normal_2+substr(ID,1,1)+'  A1 '+'-'+substr(ID,6,3)+norn 
- endif 

a  x,y+21+<LSDATE-tSTART)  say  '  ' 

- endif 

L— endif 
else 

- if  substr(ID,6,3)  <  '500* 

a  x,y+22  say  norma l_2+substr( ID, 1,1)+'  A2'+'-'+substr(ID,6,3)+normal_1 

- else  ~ 

a  x,y+22  say  norma l_2+substr( ID, 1,1)+'  A1 '+'-'+substr(ID,6,3)+normal_1 

a  x,y+21+(LS0ATE-tSTART)  say  '  ' 

I— —endif 


*  PROCEDURE  LINE  • 

*  Prints  a  Background  Shade  Line  in  a  Laydown  Format  * 


PROC  LINE 

a  x,y 
a  x,y+21 
a  x,y+22 
a  x,y+204 
a  x,y+2 
a  x,y 


say  chr(186) 
say  chr(186) 
say  lineE 
say  chr(186) 
say  title4 
say  '  ' 


PROCEDURE  DIVIDE 

Prints  a  Dividing  Line  in  a  Laydown  Format 
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1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659  X 

1660 

1661  <=: 
1662 
1663 
1644 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 
1683 

1984  <=; 

1685 

1686 

1687 

1688 


PROC  DIVIDE 

a  x,Y  say  chr(204) 
a  x,Y+l  say  repllcate(chr(205).20) 
a  x,Y+21  say  chl(206) 
a  x,Y+22  say  replicate(chr(205),182) 
a  x,Y+22  say  LIneE 
a  x,  Y+204  say  chr(185) 

=  x+1 

:=return 


PROCEDURE  LEGEND  * 

Prints  tha  legend  in  *  Laydown  Format  * 


PROC  LEGEND 


store  chr(219)  to  tASSY 
store  chr(202)  to  tOF_INV 
store  chr<203)  to  tOFJJPR 
store  chr(178)  to  tOF_POST 
a  x,y+8  say  'LEGEND;* 

X  =  X  +  1 


a  x,y+10 
a  x,y*2.7 
a  x.y-ss 
a  x,y+88 


say  'Asseirbly:  '  +  replicate(tASSY,5)+';' 
say  *0/F  Pre-Blast  Inverted;  '  +  replicate(tOF_INV,5)+ 
say  *0/F  Pre-Blast  UpRight;  '  +  replicate(tOF  lJpR,5)+' 
say  ‘0/F  Post  Blast;  ‘  +  replicate(tOF_POST,5T+';' 


:=return 


•  Formatted  by:  dANALYST  Ver.  7.3a  on  March  24,  1992  at  9:50  aM. 


dANALYST  found  O  error(s),  O  warnlng(s),  1688  lines. 


All  files  processed. 


dANALYST  found  O  total 


error(s), 


0  total  Warning,  5354  total  lines. 


APPENDIX  VI 


APPLICATION  OF  PC-BASED 
FACILITIES  SIMULATION 


Application  of  PC-Based  Facilities  Simulation 


This  report  has  described  the  development  of  a  PC-based  model 
which  serves  as  a  tool  to  assist  ship  yards  in  developing, 
updating,  and  revising  schedules,  manning,  and  facility  utilization 
reports.  To  this  point,  the  report  assumed  schedules  are  to  be 
developed  based  upon  a  yard's  current  facility  constraints,  a 
shipyard  conducting  long  range  planning  may  wish  to  look  at 
strategies  and  schedules  based  upon  a  modification  to  or  a 
different  usage  of  a  yard's  facilities.  What  is  the  best  tool  to 
perform  this  analysis?  A  team  was  formed  to  investigate  the 
applicability  of  using  a  stochastic  simulation  software  package  to 
perform  this  task.  This  appendix  discusses  the  insights  gained  by 
that  group. 


The  first  task  the  group  undertook  was  to  address  the 
guestions  shown  below. 

•Is  the  high  level  manufacturing  process  that  we  are  focusing 
on  appropriate  for  stochastic  simulation  and,  if  simulated, 
are  we  likely  to  learn  anything  that  we  do  not  already 
know? 

•If  simulating  the  manufacturing  process  at  this  level  is  not 
expected  to  yield  useful  information,  are  there  other 
opportunities  to  take  advantage  of  simulation' s  strengths 
that  would  add  value  to  the  planning  process  within  a 
shipyard? 


These  questions  are  answered  relative  to  the  capabilities  of  the 
Integrated  Production  Planning  System  (IPPS)  .  The  strengths  of 
stochastic  simulation  lies  in  its  ability  to: 

•Assign  finite  resources  and  reschedule  accordingly. 

•Utilize  a  stochastic  analysis  methodology  to  account  for 
variations  in  actual  performance. 

•System  is  table  driven  and,  therefore,  is  well  suited  to 
conducting  a  high  number  of  iterations,  what-ifs,  and 
sensitivity  studies  with  various  facility  scenarios. 


•Capability  to  allow  observation  of  the  dynamic  performance 
of  a  simulated  manufacturing  process. 

In  contrast,  the  IPPS  provides  the  capability  to  develop  and 
utilize  a  deterministic  model.  Although  finite  resources  are 
assigned  and  reported  against,  the  system  is  not  used  to 
automatically  adjust  schedules  based  on  that  information. 

The  output  of  any  computer  system,  whether  it  be  stochastic 
simulation  or  deterministic  modeling  is  dependent  upon  the  input 
given  to  the  system.  A  stochastic  simulation  program  requires  as 
its  input  data  regarding  statistical  distribution  of  activity 
durations,  statistical  distributions  of  performance  criteria  (ie. 
machine  downtime)  ,  and  a  set  of  prioritization  rules  that  take  into 
account  all  the  factors  to  be  considered  in  schedule  development. 

There  is  a  high  degree  of  uncertainty  associated  with  long 
range  planning  analysis.  When  analyzing  facilities  and  work  flow 
strategies  that  do  not  currently  exist,  no  historical  data  is 
available.  Performance  of  individual  pieces  of  equipment  at  other 
locations  may  be  investigated  but  this  may  not  be  completely 
applicable  to  the  system  arrangement  you  are  analyzing.  With 
regards  to  long  range  planning,  broad  assumptions  regarding 
statistical  distributions  of  activity  durations  and  performance 
criteria  that  are  required  for  stochastic  simulation  model  may  be 
no  more  meaningful  that  the  more  generalized  assumptions  required 
by  a  deterministic  model.  Greater  detail  in  analysis  probably 
would  not  have  caused  a  change  in  the  recommendation  with  respect 
to  facilities  modifications. 

It  is  important  to  understand  the  relative  benefits  of  finite 
vs.  infinite  capacity  systems.  The  finite  capacity  model  manages 
a  high  number  of  complex  resource  constraints  much  more  efficiently 
than  one  could  manage  with  an  infinite  capacity  system.  The 
downside  is  that  the  model  becomes  very  complex  when  trying  to 
establish  a  realistic  prioritization  logic.  Prioritization  rules 


and  logic  are  not  always  known  beforehand.  Sequencing  and 
constraints  are  often  varied  as  assumptions  are  changed  in  the 
process  of  schedule  development.  The  complexity  is  again  increased 
when  manpower  constraints  are  variable.  For  example,  additional 
shifts  or  overtime  decisions  (which  decrease  activity  duration)  can 
be  made  based  upon  task  priority.  Output  is  generated  indicating 
resource  utilization  relative  to  forward  and  backward  pass. 
Prioritization  is  left  to  the  discretion  of  the  planner.  The 
planner  manually  adjusts  the  model  assumptions  as  the  schedule  is 
refined.  After  a  number  of  iterations  are  performed  to  effectively 
level  the  manufacturing  process,  system  output  will  reflect 
resource  utilization  projections  as  well  as  a  working  schedule. 
However,  capacity/schedule  analysis  becomes  quite  complex  and  time 
consuming  as  more  and  more  resource  constraints  are  added. 

Based  upon  the  insights  gained  by  the  group,  the  following 
recommendation  is  made  in  regards  to  the  use  of  stochastic 
simulation  for  long  range  planning. 

The  dubious  benefits  associated  with  the  increased  detail  of 
a  simulation  analysis  along  with  the  difficulty  of  defining  a 
complete  set  of  prioritization  rules  and  logic  for  finite 
capacity  analysis  are  not  worth  the  increased  training, 
development,  and  maintenance  effort  required.  Given  the  data 
available  and  broad  assumptions  that  must  be  made  in  a  long 
range  planning  analysis,  equally  useful  information  may  be 
gathered  through  the  use  of  a  more  simple,  deterministic 
model . 

This  does  not  mean,  however,  that  stochastic  simulation  has  no 
use  in  a  shipyard  environment.  If  a  detailed  schedule  is  being 
developed  for  a  well  defined  process  (ie.  a  panel  line  or  a  machine 
shop)  stochastic  simulation  may  prove  a  powerful  tool.  At  this 
level,  with  established  equipment  for  which  historical  data  ia 
available,  required  input  of  activity  durations  and  down  times  with 
their  statistical  distributions  is  available.  Prioritization  rules 
and  logic  are  clearer  at  a  more  detailed  level.  The  rules  and 
logic  may  be  more  easily  incorporated  into  the  software  system  so 
that  the  software  can  help  produce  more  meaningful  results. 


Performing  stochastic  simulation  is  an  excellent  method  for 
resource,  capacity,  and  throughput  optimization  studies. 
Simulation  can  serve  as  a  powerful  tool  for  shipyards.  However, 
like  all  tools,  it  is  most  effective  when  used  properly. 


SYSTEM'S 

DEMONSTRATION  DISK 


SYSTEM 


SYSTEM'S  DEMONSTRATION  DISK 


The  "System's  Demonstration  Disk"  is  an  on  screen  slide  show 

which  gives  a  graphical  overview  of  the  Integrated  production 
Planning  System  (IPPS).  The  demonstration  disk  will  step  the 
viewer  through  both  the  Open  Plan  screens  used  by  the  IPPS  and  the 
screens  created  by  the  dBase  programs  included  within  this  project. 
To  view  the  demonstration  disk,  insert  the  disk  into  the  "B"  drive 
of  your  computer  and  type  B:\DEMO.  Note,  the  disk  reguires  a  VGA 
monitor  to  operate. 
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